[vb net] Casella di teso solo per numeri e virgola

[ciro78]

Salve,
ho una casella di testo nella quale vorrei inserire solo numeri e la virgola

ho usato questo codice

 Private Sub TextBox9_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox9.KeyPress
        If Not (Char.IsDigit(e.KeyChar)) Or (Char.IsSurrogate(e.KeyChar)) Then
            e.Handled = True
        Else
            Beep()
        End If
    End Sub 

solo che non riesco a capire come inserire la virgola per il mio scopo

grazie in anticpo per le risposte