hier ist mein Code...wie bekomme ich den so hin, das daraus unicodeformat wird?

Option Explicit


Private Sub CommandButton1_Click()

Dim Datei As String
Dim Zeile
Dim zeigen
Dim vari
Dim txt
Dim spalte

If Tabelle1.OptionButton1 = True Then Datei = Application.GetSaveAsFilename("test.txt", "txt-Datei,*.txt", , "Speichern des Reports")        
If Tabelle1.OptionButton2 = True Then Datei = Application.GetSaveAsFilename("test.txt", "txt-Datei,*.txt", , "Speichern des Reports")

Open Datei For Output As #1

Print #1, "' *****************************************************************************"                        
    Print #1, "' "
        If Tabelle1.OptionButton1 = True Then Print #1, "'                      "; Cells(3, 3); "   "  
        If Tabelle1.OptionButton2 = True Then Print #1, "'                      "; Cells(3, 4); "   "

    Print #1, "' "
    Print #1, "' *****************************************************************************"

                If Tabelle1.OptionButton2 = True Then Print #1, "lang_"; Cells(2, 4); "()"; ""                                                                                    
                If Tabelle1.OptionButton2 = True Then Print #1, "lang_"; Cells(2, 4); "()"; ""


For Zeile = 4 To 47
   vari = Cells(Zeile, 2) & " = "
   
    If Tabelle1.OptionButton1 = True Then spalte = 3                                                                                                                                                        
    If Tabelle1.OptionButton2 = True Then spalte = 4                                                                                                                                                        

    If Cells(Zeile, spalte) = "" Then
        MsgBox "Die Spalte: " & spalte & " in Zeile: " & Zeile & " enthält keinen Wert" & vbCrLf _
        & "Export nicht komplett!!!", vbCritical, "+++ Warning +++ Warning +++ Warning +++"                                                                                              'gibt Fehlermeldung aus wenn zelle leer
    End If
   
    txt = "  " & vari & """" & Cells(Zeile, spalte) & """"                                                                                                                                                        
    Print #1,                                                                                                                                                                                                      
Next Zeile

Print #1, "End Sub"

Close #1

zeigen = Shell(Environ("windir") & "\notepad.exe " & Datei, 1)                                                                                                                         

Exit Sub

End Sub