Dim instance As WebFtp
Dim str As String	'ByRef 結果はここに得られます
Dim returnValue As Integer	'成功した場合はダウンロードしたバイト数。失敗した場合は-1

returnValue = instance.DownloadStrings(str)

'WebFtpクラス DownloadStringsメソッド

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 String = wf.DownloadStrings()
		If result Is Nothing Then
			MessageBox.Show("FTPダウンロード失敗しました")
		Else
			MessageBox.Show("FTPダウンロード成功しました:" & ControlChars.CrLf _
				& ControlChars.CrLf & result)
		End If
    End Sub

End Class