Quien puede ayudarme con un programita??

[Xrage]

Hola: Bueno antes que todo me presento soy nuevo programando y estoy aprendiendo en vb6, y bueno queria hacer un programita pero tengo algunas dudas:

1- En una parte tengo que sumar asique puse 11 botones diferentes para sumar, que son los numeros del 1 al 10 y una tecla que sirve para sumarle al numero 0.5, entonces si quiero el numero "27.5" apreto 1 ves el 10, 1 el 7 y el 0.5...
hasta ahi todo bien el problema viene cuando pongo por ejemplo 2.5 y le sumo 2 mas, el resultado me da "4" en ves de dar "4.5" y no se como hacer para solucionar eso, bueno esa es mi primera gran duda

Bueno lo dejo ahi, y cuando me respondan esa preguntita les escribo las otras

Desde ya, gracias


Agrego el codigo:

Private Sub Command2_Click()
Text3.Text = Val(Text3.Text) + 1
End Sub

Private Sub Command3_Click()
Text3.Text = Val(Text3.Text) + 2
End Sub

Private Sub Command4_Click()
Text3.Text = Val(Text3.Text) + 3
End Sub

Private Sub Command5_Click()
Text3.Text = Val(Text3.Text) + 4
End Sub

Private Sub Command6_Click()
Text3.Text = Val(Text3.Text) + 5
End Sub

Private Sub Command7_Click()
Text3.Text = Val(Text3.Text) + 6
End Sub

Private Sub Command8_Click()
Text3.Text = Val(Text3.Text) + 7
End Sub

Private Sub Command9_Click()
Text3.Text = Val(Text3.Text) + 8
End Sub

Private Sub Command18_Click()
Text3.Text = Val(Text3.Text) + 9
End Sub

Private Sub Command1_Click()
Text3.Text = Val(Text3.Text) + 10
End Sub

Private Sub Command10_Click()
Text3.Text = Val(Text3.Text) + 0.5
End Sub

Private Sub Command11_Click()
Beep
End
End Sub

[WiNSoCk]

Dim x As Double
x = 2.2
MsgBox x + 2 (RESULTADO = 4.2)

Dim x As integer
x = 2.2
MsgBox x + 2 (RESULTADO = 4)

INTEGER = ENTERO, Un entero es un entero...XD Y un decimal pos lo diferente del entero...


En resumen utiliza variables DOUBLE

Un saludo.