Caja texto solo números y comas VB.NET

[chcma]

Mi solución:

Código:

        If Not Char.IsPunctuation(e.KeyChar) And Not Char.IsDigit(e.KeyChar) Then
            If Not e.KeyChar = Chr(8) Then
                e.Handled = True
            End If
        End If

En el evento KeyPress de la caja de texto.