Nein funktioniert nicht
Private Sub Test()
Dim txt_Test As String
txt_Test = "ÄäÖöÜüß"
Debug.Print txt_Test End Sub
hat zum Ergebniss im Direktfenster:
�������