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