Puedes utilizar las funciones UCase (pasar a mayusculas) y LCase (pasar a minusculas).
- Obtener el primer caracter de la cadena y aplicarle UCase.
- Obtener el resto de la cadena y aplicarle LCase.
Código:
Cadena = "PoR qUe UrI gELlER dOBlaBA CuCHAraS"
Primer_Caracter = Left(Cadena,1)
Resto_Cadena = Right(Cadena,len(Cadena)-1)
Cadena_Convertida = UCase(Primer_Caracter) & LCase(Resto_Cadena)
Un saludo
Txarly