Give this a run:

Dim sSource as string
Dim sResult as string

sResult = Ucase(Left(sSource,1)) & mid(sSource,2,len(sSource))