Esta Rutina permitira que un TextBox solo pueda recibir Numeros (Ejemplo 1) o solo texto (Ejemplo 2).
Estos codigos deben ser copiados en el evento KEYPRESS.

Ejemplo 1:
        If Char.IsDigit(e.KeyChar) Then
            e.Handled = False
        ElseIf Char.IsControl(e.KeyChar) Then
            e.Handled = False
        Else
            e.Handled = True
        End If

       O puede ser:

        If Not IsNumeric(e.KeyChar) Then
            e.Handled = True
            If e.KeyChar = ChrW(Keys.Enter) Then
                e.Handled = False
                Me.TxtSiguiente.Focus()
            End If
        End If

Ejemplo 2:
        If Char.IsLetter(e.KeyChar) Then
            e.Handled = False
        ElseIf Char.IsControl(e.KeyChar) Then
            e.Handled = False
        ElseIf Char.IsSeparator(e.KeyChar) Then
            e.Handled = False
        Else
            e.Handled = True
        End If