Dim FStream As New FileStream(strDatei, FileMode.Open, FileAccess.Read, _
  FileShare.Read)
Dim SReader As New StreamReader(FStream)
Dim sLine As String = SReader.ReadLine
Dim BeginToRead As Integer = 0             
Dim Bytes As Integer = 8                   
Dim buf(Bytes) As Char                    
SReader.Read(buf, BeginToRead, Bytes)
Dim charset As String = buf
MsgBox(charset)
SReader.Close()
FStream.Close()