ixi mano não to conseguindo , quando faço assim não esta digitando nada , esta travando . porque isso ocorre ?
Public Function Acerto(ByRef txt2 As TextBox, ByVal KeyAscii2 As Integer) As Integer
txt2.SelStart = 2
End Function
Public Function Vírgula(ByRef txt As TextBox, ByVal KeyAscii As Integer) As Integer
If KeyAscii <> 8 Then
texto = txt.Text
cursorpos = txt.SelStart
cursospos = 2
posição = InStr(1, texto, ",")
If cursorpos >= posição Then
If posição > 0 Then
depois = Right(texto, Len(texto) - posição)
If Len(depois) > 1 Then
KeyAscii = 0
End If
End If
End If
End If
Vírgula = KeyAscii
End Function