Visual Basic 6 - Prob. file in lettura

Salve a tutti eseguendo un programmino di lettura testo mi sono imbattuto nella non corretta trascrizione in una text.
Nel file originale c'è scritto : €9.01€10.02 2011/09/24 21:01:55[2011/09/24 15:01:55
***
mentre lo trascrive nella text : €9.01€10.02 2011/09/24 21:01:55[2011/09/24 15:01:55
***

il codice del programma è il seguente :
nomefile = Dir$("c:\tmp\"
If nomefile <> "" Then
Open "c:\tmp\" & nomefile For Input As #1

Do While Not EOF(1)
Line Input #1, testomio
testocompletomio = testocompletomio + Chr(10) + testomio
Loop

Text1.Text = testocompletomio
Close #1
End If
come mai succede questo grazie a tutti

Succede perché il testo di quel file è codificato in Unicode e VB6 non supporta l'Unicode (essendo un linguaggio ormai obsoleto)

Prova con questo rimedio (che non è valido in tutti i casi)

    Open "c:\test.txt" & nomefile For Input As #1
    Do While Not EOF(1)
        Line Input #1, testomio
        testomio = Replace$(testomio, Chr$(226) & Chr$(130) & Chr$(172), "€")
        Text1.Text = testomio & vbCrLf & Text1.Text
    Loop
    Close #1