Send File from Win XP to Unix in VB6

Public Function SendTestFile(sHostName As String, sLogin As String, sPassword As String, sSourceFile As String, sDestFile As String) As String
    Dim iRet As Integer
    iRet = 0
    On Error GoTo ErrTrip
    InetFTP.URL = sHostName
    InetFTP.Password = sPassword
    InetFTP.UserName = sLogin
    If InetFTP.StillExecuting Then InetFTP.Cancel
    InetFTP.Execute , "PUT " & sSourceFile & " " & sDestFile
    
    ' Wait for it to complete.
    Do While InetFTP.StillExecuting
        DoEvents
    Loop
    InetFTP.Execute , "CLOSE"
    SendTestFile = iRet
    Exit Function
ErrTrip:
    iRet = 1
    SendTestFile = iRet
    MsgBox ERR_SEND_UNSUCCESS & vbCrLf & sSourceFile & vbCrLf & Err.Description, vbCritical, MSG_ERROR_TITLE
End Function