Помогите.. плиз... оч. нужно, Print по FTP

Public Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
Public Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" (ByVal hFtpSession As Long, ByVal lpszLocalFile As String, ByVal lpszRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean
Public Declare Function FtpDeleteFile Lib "wininet.dll" Alias "FtpDeleteFileA" (ByVal hFtpSession As Long, ByVal lpszFileName As String) As Boolean
Public Declare Function FtpRenameFile Lib "wininet.dll" Alias "FtpRenameFileA" (ByVal hFtpSession As Long, ByVal lpszExisting As String, ByVal lpszNewName As String) As Boolean
Public Declare Function FtpFindFirstFile Lib "wininet.dll" Alias "FtpFindFirstFileA" (ByVal hFtpSession As Long, ByVal lpszSearchFile As String, ByRef lpFindFileData As WIN32_FIND_DATA, ByVal dwFlags As Long, ByVal dwContent As Long) As Long
Public Declare Function InternetFindNextFile Lib "wininet.dll" Alias "InternetFindNextFileA" (ByVal hFind As Long, ByRef lpvFindData As WIN32_FIND_DATA) As Long

Public Type FILETIME: dwLowDateTime As Long: dwHighDateTime As Long: End Type
Public Type WIN32_FIND_DATA
    dwFileAttributes As Long: ftCreationTime As FILETIME: ftLastAccessTime As FILETIME: ftLastWriteTime As FILETIME
    nFileSizeHigh As Long: nFileSizeLow As Long: dwReserved0 As Long: dwReserved1 As Long: cFileName As String * 260: cAlternate As String * 14
End Type


Function SendFile(ByVal FilePath As String) As Boolean
    On Error Resume Next
    If Dir(FilePath, vbNormal) = "" Then Exit Function
    hINetSession = InternetOpen("MyFTPClient", 1, vbNullString, vbNullString, 0)
    [COLOR="Red"]hSession = InternetConnect(hINetSession, "my-site.com", 21, "admin", "123", 1, 134217728, 0)[/COLOR]
    If FtpPutFile(hSession, FilePath, "www/111.txt", 0, 0) Then SendFile = True
    Call InternetCloseHandle(hSession)
    Call InternetCloseHandle(hINetSession)
End Function


Function SaveTXTfile(ByVal Filename As String, ByVal txt As String) As Boolean
    On Error Resume Next: Err.Clear
    Set fso = CreateObject("scripting.filesystemobject")
    Set ts = fso.CreateTextFile(Filename, True)
    ts.Write txt: ts.Close
    SaveTXTfile = Err = 0
    Set ts = Nothing: Set fso = Nothing
End Function

Private Sub Command1_Click()
    On Error Resume Next
    [COLOR="red"]Link = "http://my-site.com/111.txt"[/COLOR]
    Filename = Environ("temp") & "\111.txt"
    Kill Filename
    newtxt = Now & vbTab & "Компьютер: " & Environ("COMPUTERNAME")
    [COLOR="red"]newtxt = newtxt & vbNewLine & "Данные 1: " & TextBox1.Text
    newtxt = newtxt & vbNewLine & "Данные 2: " & TextBox2.Text[/COLOR]
    SaveTXTfile Filename, newtxt
    res = SendFile(Filename)
    If res Then OK = OK + 1 Else ER = ER + 1
End Sub