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

[MItaly]

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 e.KeyChar=","c) Then
        e.Handled = True
        Beep()
    End If
End Sub