code:Function talker(strinput) talker = "" & UCase(Left(strinput, 1)) & Mid(strinput, 2) End Function