Virgule et point

Public Class Form1
    Dim Bon As Boolean
    Private Sub BTN_QUITTER_Click(sender As Object, e As EventArgs) Handles BTN_QUITTER.Click
        End
    End Sub

    Private Sub Consommation(sender As Object, e As EventArgs) Handles TXT_CONSOMMATION.TextChanged
        If Not IsNumeric(TXT_CONSOMMATION.Text) Or TXT_CONSOMMATION.Text = "" Then
            Bon = False
        Else
            Bon = True

        End If
    End Sub

    Private Sub Longueur(sender As Object, e As EventArgs) Handles TXT_LONGUEUR.TextChanged
        If Not IsNumeric(TXT_LONGUEUR.Text) Or TXT_LONGUEUR.Text = "" Then
            Bon = False
        Else
            Bon = True

        End If
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub



    Private Sub Prix(sender As Object, e As EventArgs) Handles TXT_PRIX.TextChanged
        If Not IsNumeric(TXT_PRIX.Text) Or TXT_PRIX.Text = "" Then
            Bon = False
        Else
            Bon = True

        End If
    End Sub

    Private Sub BTN_CALCULER_Click(sender As Object, e As EventArgs) Handles BTN_CALCULER.Click

        Dim Cout As Double

        Cout = CDbl(((TXT_LONGUEUR.Text / 100) * TXT_CONSOMMATION.Text * TXT_PRIX.Text))

        If Bon = False Then
            LBL_ATTENTION.Text = "Soyez gentils ne mettez pas n'importe quoi"
        Else

            LBL_COUTV.Text = "le coût du voyage est " & Cout & "euros"

        End If
    End Sub
End Class