Now that's a question

[casparas]

HI.

Ok let's say i have the textbox and my code is:

Private Sub txt1_KeyPress(KeyAscii As Integer)

If KeyAscii > 57 Or KeyAscii = 32 Or KeyAscii = 33 Or KeyAscii = 35 Or KeyAscii = 36 Or KeyAscii = 37 Or KeyAscii = 38 Or KeyAscii = 40 Or KeyAscii = 41 Or KeyAscii = 42 Or KeyAscii = 43 Or KeyAscii = 44 Or KeyAscii = 45 Or KeyAscii = 47 Then
  KeyAscii = 0

End If

End Sub

This code prevents text writing in the textbox.

And the question Is: How can i prevent
writing of second dot?

for egzample 2.1133...
or 654.15.