Private Function ReadLineFromTextFile(ByVal Filename As String, ByVal Line As _
  Integer) As String
        Dim txtZeile As String = ""
        Try
            Dim Textfile As System.IO.TextReader = New System.IO.StreamReader( _
              Filename)
            Dim cnt As Integer = 0
            Do Until cnt = Line - 1
                Textfile.ReadLine()
                cnt += 1
            Loop
            txtZeile = Textfile.ReadLine()
            Textfile.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error")
        End Try
        Return txtZeile
    End Function
 
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Randomize()
        Dim oZeile As New System.Random
        Dim Zeile As Integer = 1
        Dim datei As String = (ReadLineFromTextFile("Pfad.txt", Zeile))
        Try
            Process.Start(datei)
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Achtung")
        End Try
    End Sub