Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal _
  e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Dim Username As String = ListBox1.SelectedItem
        Dim strdatei As String = pfad
        Dim FStream As FileStream
        Dim Reader As StreamReader
        Dim Password As String
 
        Try
            FStream = New FileStream(strdatei, FileMode.Open, FileAccess.Read)
            Reader = New StreamReader(FStream)
 
            Do While Reader.Peek() >= 0
                Password = Reader.ReadLine()
                TextBox1.Text = ListBox1.SelectedItem
 
                If (Password.StartsWith("PASSWORD")) Then
 
                    Password = Password.Remove(0, 9)
 
                    With TextBox2
                        .Text = Password
                    End With
 
                End If
            Loop
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            If Not (Reader Is Nothing) Then
                Reader.Close()
            End If
            If Not (FStream Is Nothing) Then
                FStream.Close()
            End If
        End Try
 
    End Sub