Dim strHockey As String = “vancouver canucks”
strHOckey = StrConv(strHockey, VbStrConv.ProperCase)
MsgBox(srtHockey)

Output will be Vancouver Canucks