Code: Alles auswählen
Sub Test1
Dim sText as String
Open "d:\WEB\GEDCOM\Test2.ged" For Output AS 2
sText = Chr(195)+Chr(164)+Chr(195)+Chr(188)+Chr(195)+Chr(182)+Chr(195)+Chr(376)+Chr(195)+Chr(8222)+Chr(195)+Chr(8211)+Chr(195)+Chr(339)
Print #2, sText
End Sub
äüößÄÖÜ
Danke für die Tipps.