Sub UsefulStringFunctions() Dim sTestWord As String sTestWord = "The moon over Minneapolis is big and bright." Debug.Print sTestWord Debug.Print StrConv(sTestWord, vbProperCase) End Sub