Dim instance As WebFtp
Dim value As String
Dim returnValue As String

instance.Username = value
returnValue = instance.Username

'WebFtpクラス Usernameプロパティ

Imports System.Windows.Forms
Imports Microsoft.VisualBasic

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.UploadStrings(Date.Now.ToString & ControlChars.CrLf)
		If result = -1 Then
			MessageBox.Show("FTPアップロード失敗しました")
		Else
			MessageBox.Show("FTPアップロード成功しました:" & result & "Byte")
		End If
    End Sub

End Class