Hi guys,

I have some problem with the calculation.

When I press "0.01", it came out
0.0(When I press 0.0)
1(When I press 1)

What happen to my calculation?

Code:
Private Sub Command0_Click()

If (text1.Text = 0) Then
    If (Shift = True) Then
        text1.Text = "0.0"
        Shift = False
    Else
        text1.Text = "0"
    End If

Else
text1.Text = text1.Text & "0"
End If

End Sub
If u guys dont understand, it cannot have 0.01, 0.02....etc..

only 0.0
and then go back to 1.

Help!