Visual Basic - Problemas al dividir con 0,8

Hola amigos,

Resulta que tengo una división en la cual, el valor de la variable que se encuentra en el denominador es 0,8 y al compilar me da error ya que me reconoce el valor de esta como 0 en vez de 0,8.

No se que problema hay, ya que la variable la tengo declarada como número real (single).

¿Alguién tiene idea de que debo hacer ?

Gracias por adelantado

Saludos

Roberto

Revisa la configuración regional e intenta enviar el punto como separador decimal, lo puedes reemplazar con:

Replace("0,8",GetLocaleDecimalSep,".")

Public Const LOCALE_SDECIMAL = &HE

Public Declare Function GetUserDefaultLangID Lib "kernel32" () As Integer
Public Declare Function GetUserDefaultLCID Lib "kernel32" () As Long
Public Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long

Public Function GetLocaleDecimalSep() As String
Dim strBuffer As String

strBuffer = String(255, " ")

GetLocaleInfo GetUserDefaultLCID, LOCALE_SDECIMAL, strBuffer, 255

GetLocaleDecimalSep = Trim(Replace(strBuffer, Chr(0), ""))

End Function

Prueba poniendo a la variable como double