problema manejo de numeros decimales

[Miguel2k2]

Dim a As Double
a = InputBox("numero", "ya")
List1.AddItem a

Eso es lo que hice, pero sigo en lo mismo. Me explico mejor a continuacion:
introduzco los datos de entrada utilizando el punto decimal con las teclas calculadora (lado derecho del teclado).
Ejemplo:
15.5
0.01
Y lo que me muestra el List1 es:
155
1
Entonces lo que pasa es que no reconoce el punto decimal, el unico modo que lo reconoce es digitando la coma del teclado (cerca a la barra espaciadora)
asi
15,5
0,01
Que me sugieren por favor:

[rsiles]

Private Sub Form_Load()
Dim a As Double
a = InputBox("numero", "ya")
List1.AddItem a
End Sub

[Miguel2k2]

Rsiles

Dim a As Double
a = InputBox("numero", "ya")
List1.AddItem a

Eso es lo que hice, pero sigo en lo mismo. Me explico mejor a continuacion:
introduzco los datos de entrada utilizando el punto decimal con las teclas calculadora (lado derecho del teclado).
Ejemplo: 15.5
0.01
Y lo que me muestra el List1 es:
155
1
Entonces lo que pasa es que no reconoce el punto decimal, el unico modo que lo reconoce es digitando la coma del teclado (cerca a la barra espaciadora)
asi 15,5
0,01
Que me sugieren por favor:

[rsiles]

Lo que debe estar sucediendo es lo siguiente, ve al panel de control y en la configuracion regional fijate que estes usando la de tu pais, el problema radica que puede tener la de un pais que no trabajen de esa forma los decimales, fiajte bien ademas en la configuracion de los miles y los decimales.

Por que la rutina a como esta hace lo que tu deceas, ya la probe bien en mi maquina y trabaja bien.