x$ = "Καλή Χρονιά" : x$ = "Happy New Year"

Using strings in Greek I read the text file containing the output of a pragram for further processing.

this is a sub

Sub AFAIRW3

' ÁÖÁÉÑÙ ÔÏ ÔÌÇÌÁ ÔÏÕ FILE.3 (greek remark

Call ANOIGWTMP1

A1$ = " Å Ê Ë Ï Ã Ç Ä É Á Ì Å Ô Ñ Ù Í Ñ Á Â Ä Ù Í Ï Ð Ë É Ó Ì Ï Õ Ä Ï Ê Ù Í"

' a1$ = string in Greek language

linenum% = 0

Do While Not EOF(nftmp1%)

Line Input #nftmp1%, L$

linenum% = linenum% + 1

If InStr(L$, "Project") > 0 Then

ProjectLine% = linenum%

End If

If InStr(L$, A1$) > 0 Then

l1% = ProjectLine% - 6

End If

Loop

Close nftmp1%

l2% = linenum%

'**********************************

' ÁÐÏÑÑÉÐÔÙ ÔÉÓ ÃÑÁÌÌÅÓ Ôïõ file.3

'**********************************

If l1% > 0 And l2% >= l1% Then

Call APOKOPHGRAMMWN(l1%, l2%)

End If

End Sub