ho scritto questo codice infatti per risolvere,

Dim a As String
a = TextBox2.Text
TextBox3.Text = a.LastIndexOf(",")


If (e.KeyCode = Keys.FinalMode) Then
If TextBox2.Text = "" Then
MsgBox("Inserire dei Numeri Prima della Virgola")
Else

If TextBox3.Text = "-1" Then
TextBox2.Text = TextBox2.Text + ","
TextBox2.SelectionStart = 99999
Else
MsgBox("Virgola già Inserita")

End If


End If


End If


solo che qua: Keys.FinalMode, non trovo la virgola