По такому коду (это переделанный в VBA фрагмент примера SimpleFTP от Микрософта передается текстовый файл на сервер:

Public Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Public Const INTERNET_INVALID_PORT_NUMBER = 0
Public Const INTERNET_SERVICE_FTP = 1
Public Const FTP_TRANSFER_TYPE_BINARY = &H2
Public Const FTP_TRANSFER_TYPE_ASCII = &H1

dwSeman = 0
hOpen = InternetOpen("my program", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)

hConnection = InternetConnect(hOpen, server, INTERNET_INVALID_PORT_NUMBER, _
user, password, INTERNET_SERVICE_FTP, dwSeman, 0)


'dwType = FTP_TRANSFER_TYPE_ASCII
dwType = FTP_TRANSFER_TYPE_BINARY

If (FtpPutFile(hConnection, dirName & fileName, fileName, _
dwType, 0) = False) Then
ErrorOut Err.LastDllError, "DJFtpPutFile"
Call DJFtpClose
Exit Sub
end if

И все работает нормально в большинстве случаев. Однако, например, когда я подключился через модем мобильного интернета (формат EDGE) сервер "вернул расширенные сведения" - Code message : 12003.

200 TYPE is now 8-bit binary
500 I won't open a connection to 10.15.133.54 (only to 81.23.24.96)
500 Unknown command

Отмечу, что через модем мобильного интернета МТС - эта штука работала.
Может кто подскажет, где зарыта собака или где найти коды ошибок?