Visual Basic - TEXTBOX SOLO MAYUSCULA

Sub valida_letras()

    StrValido = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZÁÉÍÓÚ1234567890/()@." + Chr(32)

    Ini_Tecla = Tecla

    Tecla = Asc(UCase(Chr(Tecla)))

    If Tecla > 26 Then

       If InStr(StrValido, Chr(Tecla)) = 0 Then

          Tecla = 0

       Else

          Tecla = Ini_Tecla

       End If

    End If

End Sub

Private Sub Text1_Change()

Text1.Text = UCase(Text1.Text)

Text1.SelStart = Len(Text1)

End Sub

TextBox1.CharacterCasing = CharacterCasing.Upper

TextBox1.CharacterCasing = CharacterCasing.Upper

Private Sub Texbox1_Change ()

Texbox1 = Ucase(Texbox1)

End Sub

KeyAscii = Asc(UCase$(Chr$(KeyAscii)))

' Aqui para un boton de comando se inserta el codigo

Private Sub CommandButton4_Click()

txtUsuario = Left(txtNombre, 1) & Left(txtApellido, 10)

txtClave = txtFicha

End Sub

' Aqui para colocar lo que se copia en minuscula

Private Sub txtUsuario_Change()

Dim cadena As String

cadena = LCase(txtUsuario.Text)

txtUsuario = cadena

End Sub