Sub Main Dim myStr As New StringClass myStr.Append "Türkiye" Debug.Print myStr.toUTF8 'Türkiye End Sub