få en fejl nå jeg prøver at kommer på ftp server

jeg har følgende kode til at hente en fil på min ftp server. mem
jeg få fejlen at den ikke kan åbne ftp.nemdata.dk hvad kan værer galt?


Sub TestFTP()
On Error GoTo ErrHandler
Dim objFTP As FTP
Const conTARGET = "ftp://ftp.nemdata.dk/op.txt"

  Set objFTP = New FTP
  With objFTP
    .UseProxy = True
    .FtpURL = conTARGET
    .DestinationFile = "C:\Programmer\NemData\Op.txt"
    'If .FileExists Then .OverwriteTarget = True
    .PromptWithCommonDialog = True
    If Not .IsConnected Then .DialDefaultNumber
    .ConnectToFTPHost "nemdata.dk", "****"
    .WriteFTPDataToFile
  End With
ExitHere:
  On Error Resume Next
  Set objFTP = Nothing
  Call SysCmd(acSysCmdRemoveMeter)
  Exit Sub
ErrHandler:
  MsgBox Err.Number & vbCrLf & Err.Description, vbCritical + vbOKOnly, Err.Source
  Resume ExitHere
End Sub