Visual Basic - Q NO ME GRABE EN MAYUSCULAS

Q NO PERMITA GRABAR PRIMERA LETRA EN MAYUSCULAS LAS DEMÀS EN MINUSCULAS

Puedes usar las funciones Ucase y Lcase, en el evento keypress del TextBox donde estás leyendo el dato.

En el evento keypress, verificas con la función LEN si acaso es el primero, convierte ese caracter en mayúscula, si no conviertelo a minúscula.

KeyAscii = Asc(UCase(Chr(KeyAscii)))
Para convertirlo a mayúsculas, esto ponlo cuando sea el primer caracter, para que te lo convierta en mayúscula

KeyAscii = Asc(LCase(Chr(KeyAscii)))
En caso contrario de la primer condición pon el resto en minuscula...

Espero esto te sirva, saludos