VB .NET - Como permitir somente números, vírgula em uma caixa de textos (TextBox, MaskedTextBox)

Public Class Form1

    Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        If Not Char.IsNumber(e.KeyChar) And Not e.KeyChar = vbBack And Not e.KeyChar = "," Then

            e.Handled = True

        End If

    End Sub

End Class