I have this code inside a command button:

Code:
Dim strFTPCommand As String

With inetFTPTest
    .Cancel
    .Protocol = icFTP
    .URL = txtServer.Text
    .UserName = txtUsername.Text
    .Password = txtPassword.Text
End With

frmAdminFTPStatus.Show
frmAdminFTPStatus.lblStatus.Caption = "Uploading Test File"

strFTPCommand = "PUT " & GetShortPath(App.Path & "\config\ftptest.bok") & " " & txtRemoteDir.Text & "/ftptest.bok"
inetFTPTest.Execute , strFTPCommand

frmAdminFTPStatus.lblStatus.Caption = "Upload Completed!"

frmAdminFTPStatus.lblStatus.Caption = "Downloading Test File"

Do While inetFTPTest.StillExecuting = True
    DoEvents
Loop

strFTPCommand = "GET " & txtRemoteDir.Text & "ftptest.bok " & GetShortPath(App.Path & "\config\test\ftptest.bok") & "" 
inetFTPTest.Execute strFTPCommand

MsgBox "FTP Test Completed Successfully!", vbInformation, gAppName

frmAdminFTPStatus.Hide
Whenever the line in red is reached, Visual Basic throws up an error stating that it was unable to connect to the remote host. I am very new to the Inet control, so I suspect it is a simple problem.

Any ideas, Guys?

Thanks in advance..