Basic - mayuscula

hola amigos como estan espero que bien..tengo una enorme pregunta sobre como puedo hacer lo siguiente...

tengo un cuadro de texto..y quiero que automaticamente me salga en mayuscula la primer letra al ingresarla y luego me salgan las demas en minuscula..lo que me interesa es sber como hago para que solamente la primer letra me salga en mayuscula y las demas en minuscula..agradeciria mucho que me respondieran porfavor..

TEXTO$="aBcDeFg"
TEXTO$= LCASE$(TEXTO$) '<-- Minusculiza todas
E$= LEFT$(TEXTO$, 1) '<-- Toma la 1ra letra
E$= UCASE$(E$) '<-- La hace mayúscula
MID$(TEXTO$, 1, 1) = E$ '<-- Reemplaza la 1ra letra minúscula por la mayúscula
PRINT TEXTO$

'Programa para poner la primera letra de un texto en mayusculas
'... y el resto en minusculas.
'a$ = Es el texto a modificar
'b$ = Es el texto modificado

a$ = "kjiuJHBlkbbhjhhjuHJgJJKhgjJhBj"

b$ = UCASE$(LEFT$(a$, 1)) + LCASE$(MID$(a$, 2, LEN(a$) - 1))

'Aqui lo presentamos ya terminado
PRINT b$

'lrcvs 14.09.08