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
MsgBox UCase(sText)                   ' RUN, FORREST RUN