Private Function TextDateiÖffnen(ByVal sPath As String) As String
        Try
            Dim fInfo As New FileInfo(sPath)
            If Not fInfo.Exists Then Throw New Exception("Datei " & _
              fInfo.FullName & " nicht vorhanden")
 
            Dim sTemp As String = String.Empty
 
            For Each sLine As String In System.IO.File.ReadAllLines( _
              fInfo.FullName, System.Text.Encoding.Default)
                If sLine.Length > 85 Then sLine = sLine.Substring(0, 85)
                sTemp &= sLine & vbCrLf
            Next
 
            Return sTemp
        Catch ex As Exception
            MsgBox("Fehler: " & ex.Message)
            Return String.Empty
        End Try
    End Function