Evo ti nesto iz moje glave... verovatno postoji neki strucniji nacin ali ovo je jednostavno i radi posao... !!!
Obrati paznju da u nekim zemljama umesto "." ljudi koriste "," !!!
Code:
Public BrojTacaka As Short = 0
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
Handles TextBox1.KeyPress
If e.KeyChar = "." Then
BrojTacaka += 1 ' broji tacke
If BrojTacaka > 1 Then 'ako ima vise od jedne, greska
MsgBox("Uneli ste dve ili vise tacaka!")
BrojTacaka = 0 ' resetuje brojcanik na nulu
TextBox1.Text = "" 'obavezno isprazniti TextBox1.Text
e.Handled = True
End If
End If
End Sub