200 Type set to I.
200 Port command successful.
213 61
425 Cannot open data connection.

Sub ShowError()
'http://www.ex-designz.net/apidetail.asp?api_id=466
Dim lErr As Long, sErr As String, lenBuf As Long
    'get the required buffer size
    InternetGetLastResponseInfo lErr, sErr, lenBuf
    'create a buffer
    sErr = String(lenBuf, 0)
    'retrieve the last respons info
    InternetGetLastResponseInfo lErr, sErr, lenBuf
    'show the last response info
    MsgBox "Error " + CStr(lErr) + ": " + sErr, vbOKOnly + vbCritical
End Sub

200 Type set to I.
200 Port command successful.
550 No such file.
550 "test321.txt": no such file.

    If FtpGetFile(hSession, MY_FTP_FILE, MY_LOCAL_FILE, False, 0, INTERNET_FLAG_PRAGMA_NOCACHE, 0) = False Then
        'MsgBox "Call to FtpGetFile Failed!"
        ShowError
    End If