' To lower, upper and proper case Dim sText As String sText = "Run, forrest run" MsgBox StrConv(sText, vbProperCase) ' Run, Forrest Run MsgBox StrConv(sText, vbLowerCase) ' run, forrest run MsgBox StrConv(sText, vbUpperCase) ' RUN, FORREST RUN