Private Function Zeile(ByVal file As String, ByVal zeilennummer As Integer) _
      As String
        Dim lines() As String = IO.File.ReadAllLines(file)
        If zeilennummer > 0 And lines.Length >= zeilennummer Then
            Return lines(CInt(zeilennummer) - 1)
        Else
            Return String.Empty
        End If
    End Function