[Visual Basic] une seule virgule dans une textBox

Bonjour à tous et à toutes, je sollicite votre aide pour le sujet suivant :
je voudrais limiter le nombre des virgules dans une textBox à 1.
c-à-d si je met une virgule dans une textBox et j'essaie de mettre une deuxième rien ne se passe
j'ai bien trouver le code suivant :

 Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If (e.KeyChar = ",") Then If (TextBox1.Text.Contains(",")) Then e.Handled = True
    End Sub

dans :
https://forums.commentcamarche.net/forum/affich-22991758-vb-net-virgule-textbox
mais rien ne change (meme si celui qui postée le code à mis le sujet comme résolu )
j'ai déjà trouvé comment interdire la saisie des lettres et autre symbole, et aussi comment remplacer le point par une virgule

Voici le Code :

Dim desNuméro() As Char = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"}
 Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If Not desNuméro.Contains(e.KeyChar) And Not Asc(e.KeyChar) = 8 Then
            e.Handled = True
        End If
        If e.KeyChar = "."c Or e.KeyChar = ","c Then
            e.Handled = True
            TextBox1.AppendText(",")
        End If
          End Sub

il me manque que ça
aidez moi s'il vous plait et merci d'avance