Visual Basic - no permitir mayusculas en un text

hola de nuevo estoy haciendo un pekeño programa ke tenga una contraseña para entrar pero kiero ke si escriben mayusculas ponga unmensaje de error xfa si alguien me puede ayudar se lo agradeceria bueno bye

Podeis hacerlo así:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc(UCase(Chr(KeyAscii))) Then
MsgBox "no se permiten mayúsculas"
KeyAscii = 0
End If
End Sub

creo que la siguiente instrucción es mejor, no envía aviso alguno, pero si se ha pulsado una mayúscula, la convierte a minúscula:
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(LCase(Chr(KeyAscii)))
End Sub

muchas gracias amiga digo si estais actualmente