I would probably use a simple function, something along the lines of:
Private Function CapitalizeFirstLetter (currentControl as Control)
currentControl = UCase(Left(currentControl, 1)) & LCase(Mid(currentControl, 2))
End function
(Note: you should put in some error handling, and you should...