Vb forcer a saisir des chiffre avec virgule dans textbox

Bonjour,

Dans mon userform, j'ai une textbox sur laquel je souhaite forcer la virgule à la place du point. EXEMPLE : saisie 5.61 je souhaiterais 5,61....

Après recherches je ne trouve pas avez vous une idée ? merci tous plein

Bonjour,

A essayer

Private Sub textBox1_Change()
On Error Resume Next
If TextBox1 = "" Then Exit Sub
    If Not IsNumeric(Right(TextBox1, 1)) Then
        If Right(TextBox1, 1) = "." Then
        MsgBox "Le caractere saisi n'est pas valide"
        TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
        End If
    End If
End Sub

Amicalement