Const strDateiName As String = "C:\datei\pickliste.txt"
        Dim fs As FileStream = New FileStream(strDateiName, _
          FileMode.OpenOrCreate, FileAccess.ReadWrite)
        Dim r As StreamReader = New StreamReader(fs)
        r.BaseStream.Seek(0, SeekOrigin.Begin)
        While r.Peek() > -1
            Dim strText As String
            Dim strTeile() As String
            strText = (r.ReadLine())
            strTeile = strText.Split(";")
            strText = strText.Trim
            txtArtikelnr.Text = strTeile(0)
            txtArtikelbez.Text = strTeile(1)
            txtMenge.Text = strTeile(2)
            txtLagerplatz.Text = strTeile(3)
        End While
 
        r.Close()
        fs.Close()