Sub Main Dim myStr As New StringClass myStr.Append "Test" Debug.Print myStr.CharacterAt(3) 's End Sub