Dim strValue As String = "let's test this."  

MsgBox(StrConv(strValue, VbStrConv.ProperCase))