'Bei bekannter Zeilenlänge ...
Dim startposition As Integer = 37
Dim length As Integer = 5
 
Using sr As New IO.StreamReader("F:\daten\demodaten1.txt")
    Dim substringtocheck As String = sr.ReadLine.Substring(startposition, _
      length)
    '...... 
End Using