Sub Main Dim myStr As New StringClass Debug.Print myStr.Length '0 myStr.Append "Test" Debug.Print myStr.Length '4 End Sub