Public Class Form1
 
    Public Function Para_auslesen()
        Dim myStreamReader As IO.StreamReader
        Dim Einzelzeile As String
        Dim TextNachGleichheitszeichen As String
        Dim TextVorGleichheitszeichen As String
        Dim pfad As String
 
        Dim strMeldedatei As String = "pfad.ini"
 
        myStreamReader = New IO.StreamReader(strMeldedatei, _
          System.Text.Encoding.Default, True)
 
        Do Until myStreamReader.EndOfStream
            Einzelzeile = myStreamReader.ReadLine
 
            Dim Position As Integer = Einzelzeile.IndexOf("=")
            If Position >= 0 Then
                TextVorGleichheitszeichen = Einzelzeile.Substring(0, Position)
                TextNachGleichheitszeichen = Einzelzeile.Substring(Position + 1)
            Else
                TextVorGleichheitszeichen = Einzelzeile
                TextNachGleichheitszeichen = String.Empty
            End If
 
            Select Case TextVorGleichheitszeichen
                Case "pfad"
                    pfad = TextNachGleichheitszeichen
 
            End Select
        Loop
        myStreamReader.Close()
 
        Para_auslesen = pfad
        'Return pfad
 
 
    End Function
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        TextBox1.Text = Para_auslesen()
    End Sub
End Class