Validaciones de texbox :)

Para Numeros y letras :)

tecla = Asc(e.KeyChar)
        Select Case tecla
            Case 8
            Case 32
            Case 13
                If txtcliente.Text.Equals("") Then
                    MsgBox("Ingrese nombre")
                Else
                    txtcodigo.Focus()
                End If
            Case 65 To 90
            Case 97 To 122
            Case Else
                e.Handled = True
        End Select

validacion de un textbox para solo numeros

        Select Case TECLA
            Case 8, 32, 65 To 90, 97 To 122
            Case 13 : txtnombre.Focus()
            Case Else
                e.Handled = True
        End Select

by : Carla B.