Sub Main Dim myStr As New StringClass myStr.Append "mr jones smith" Debug.Print myStr.ProperCase 'Mr Jones Smith End Sub