Function Convert(PString)
Dim ConvertTxtW, ConvertTxtQ, OutPutString
CovertTxtQ = ""
ConvertTxtD = Array(165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 141, 142, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 246, 247, 248, 249, 250, 251, 252, 253, 254, 236, 237, 238, 239, 240, 241, 243, 244, 245, 138, 40, 41, 60, 62)
ConvertTxtW = "ÒŽÓÓÔÔÕÕÖÖØÙÚÚÚÚÛÛÛÛÝÝÞÂÆÇÇÈÈÊÊËËÌÌÍÍÎÎÏÐÑääæåååíííÞßßááãã,)(><"
For I = 1 To Len(ConvertTxtW)
ConvertTxtQ = ConvertTxtQ & Chr(ConvertTxtD(I - 1))
Next
For I = 1 To Len(PString)
dummch = Mid(PString, I, 1)
a = Asc(dummch)
dumm = InStr(ConvertTxtQ, dummch)
If dumm <> 0 Then
dummch = Mid(ConvertTxtW, dumm, 1)
End If
If a = 242 Then dummch = "áÇ"
OutPutString = OutPutString & dummch
Next
Dim z, z2
z = OutPutString
z2 = z
dumm = InStr(z, Chr(10))
z = z2
OutPutString = ""
While dumm <> 0
OutPutString = Left(z, dumm) & Chr(10) & OutPutString
z = Right(z, Len(z) - dumm)
z2 = z
dumm = InStr(z, Chr(10))
z = z2
Wend
OutPutString = z & OutPutString
Convert = OutPutString
End Function
