Il faut déterminer le mot (ex. : "toto") puis utiliser la propriété UCase :

Mot = "toto"
var = UCase(Left(Mot, 1)) & Right(Mot, Len(Mot) - 1)