Private Sub Form_Load()
If Dir(Environ("APPDATA") & "\FileZilla\recentservers.xml") = "" Then
Else
fnum = FreeFile
Open Environ("APPDATA") & "\FileZilla\recentservers.xml" For Input As fnum
Do Until EOF(fnum) = True
Line Input #fnum, file_line

If InStr(1, file_line, "<Host>") Then
HostSorted = file_line
HostSorted = Split(HostSorted, ">", 2)
HostSorted = Replace(HostSorted(1), "</Host>", "")
Host = Host + "Host: " + HostSorted + vbCrLf
End If

If InStr(1, file_line, "<User>") Then
HostSorted = file_line
HostSorted = Split(HostSorted, ">", 2)
HostSorted = Replace(HostSorted(1), "</User>", "")
Host = Host + "User: " + HostSorted + vbCrLf
End If

If InStr(1, file_line, "<Pass>") Then
HostSorted = file_line
HostSorted = Split(HostSorted, ">", 2)
HostSorted = Replace(HostSorted(1), "</Pass>", "")
Host = Host + "Pass: " + HostSorted + vbCrLf
Host = Host + "------------------------" + vbCrLf
End If

Loop
Close #fnum
Host = "------------------------" + vbCrLf + Host

MsgBox (Host)
End If
End Sub