Ciao,
codice:
Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
    If e.KeyCode = Keys.Decimal Then
        e.SuppressKeyPress = True
        TextBox1.AppendText(",")
    End If
End Sub