Problems with Greek or Cyrillic Characters ?

P3 has problems with Greek or Cyrillic Characters. Why? Well P3 only reads up to 256 characters (Ansi Code). Windows however works with fonts that have a few thousand characters. In these fonts the Greek and Cyrillic characters are at positions of about 900 and 1000. So they cannot be read by P3. Fonts like ArialGreek however have their code within the 256 limit. How to transfer text written in Excel with normal multicode into Ansi, so that it can be read with ArialGreek? Very easy, just convert the characters with a macro:

Sub TranslateGreek()
Dim test, zwischen As String

If Cells(1, 1) <> "" Then
test = ""
For i = 1 To Len(Cells(1,1))
zwischen = AscW(Mid(Cells(1,1), i, 1))
test = test & IIf(zwischen < 256, ChrW(zwischen), ChrW(zwischen - 720)) ’deduct 848 for Cyrillic
Next i
Cells(1,2) = test

End If

End Sub