Pasar a MAYUSCULA un Control o solo la Primer Letra en VB

Simplemente basta con agregar éstas funciones y llamarlas de la siguiente manera:

Si Text1.Text tiene "aaaaaaaaa"

Llamamos a la función:

May Text1.Text

Obteniendo como resultado:

"AAAAAAAAAAA"

Si Text1.Text tiene "aaaaaaaaa" o "aAaAAA" o cualquier combinación que les parezca.

Llamamos a la función:

MayAMin Text1.Text

Obteniendo como resultado:

"Aaaaaaaa"

Public Function MayAMin(sTexto As String) As String
MayAMin = UCase(Mid(sTexto, 1, 1)) + LCase(Mid(sTexto, 2, Len(sTexto)))
End Function

Public Function May(sTexto As String) As String
May = UCase(sTexto)
End Function