Option Explicit
 
Sub test()
Dim t As String, i As Long
t = "Günter Mörgele"
Dim UTF8Bom As String
UTF8Bom = Chr$(239) & Chr$(187) & Chr$(191)
 
 
Debug.Print t
t = UmlauteErsetzen(t)
Debug.Print t
 
Open "d:\##\cross.txt" For Output As #1
'Print #1, UTF8Bom  '----> Falls benötigt
Print #1, t
Close
 
For i = 1 To Len(t)
    Debug.Print Hex$(Asc(Mid$(t, i, 1))); " ";
Next
 
End Sub
 
Function UmlauteErsetzen(s As String) As String
s = Replace(s, "Ä", Chr$(&HC3) & Chr$(&H84))
'...
s = Replace(s, "ö", Chr$(&HC3) & Chr$(&HB6))
s = Replace(s, "ü", Chr$(&HC3) & Chr$(&HBC))
UmlauteErsetzen = s
End Function