Private Sub readFile(ByVal file As String)
        Dim fs As New FileStream(file, FileMode.Open)
        Dim sr As New StreamReader(fs)
        Dim zeile As String
        Dim counter As Integer = 0
        Do Until sr.Peek() = -1
            zeile = sr.ReadLine()
            chararray(counter, ) = zeile.ToCharArray
            counter += 1
        Loop
        sr.Close()
    End Sub