Dim sr As New System.IO.StreamReader(OFD.FileName, _
           System.Text.Encoding.UTF7) 'Encoding.Default) 'Encoding.UTF8) _
           'Encoding.ASCII) ', encoding:="ISO-8859-1")
        strText = sr.ReadToEnd
        sr.Close()

        'Test mit FileOpen
        lngFN = FreeFile()
        FileOpen(lngFN, OFD.FileName, OpenMode.Binary, OpenAccess.Read)   'For 
        ' Binary As lngFN '
        strText = LineInput(lngFN)
        While Not EOF(lngFN)
            strText = strText & Chr(10) & LineInput(1)
        End While
        FileClose(lngFN)
        OemToChar(strText, strText)

lngFN = FreeFile
 
Open vntPathAndFileName For Binary As lngFN '
 strText = Space(LOF(lngFN))
 Get lngFN, 1, strText
Close lngFN
'Stop
i = OemToChar(strText, strText) ' Umwandlung von OEM to Char
' den eingelesenen Text in Zeilen aufteilen
vntArray = Split(strText, Chr(10))

Danke für die Hilfe

Gruß Christian