Dim instance As WebFtp
Dim filePathName As String
Dim returnValue As Integer	'成功した場合はアップロードしたバイト数。失敗した場合は-1

returnValue = instance.UploadFile(filePathName)

'WebFtpクラス UploadFileメソッド

Imports System.Windows.Forms

Public Class AddIn

    Public Sub AddIn_Start()
        Dim wf As WebFtp = New WebFtp()
		wf.Host = "ftp.sample.jp"
		wf.Username = "sampleuser"
		wf.Password = "passxxx"
		wf.Directory = "public_html/data"
		wf.RemoteFilename = "test.txt"
		wf.Pasv = True
		Dim result As Integer = wf.UploadFile("D:\tmp\test.txt")
		If result = -1 Then
			MessageBox.Show("FTPアップロード失敗しました")
		Else
			MessageBox.Show("FTPアップロード成功しました:" & result & "Byte")
		End If
    End Sub

End Class