The following lines were added (+) and removed (-):
<nowiki>End Sub</nowiki>Example 3: VBA, Retrieve a File from an FTP Site <nowiki>Private Sub Form_Load()</nowiki> <nowiki> ' Set a reference to the internet transfer control.</nowiki> <nowiki> Set objFTP = Me!axFTP.Object</nowiki> <nowiki>End Sub</nowiki> <nowiki></nowiki> <nowiki>Private Sub cmdGetFile_Click()</nowiki> <nowiki> Dim strSite As String</nowiki> <nowiki> Dim strFile As String</nowiki> <nowiki> strSite = Me!txtFTPSite</nowiki> <nowiki> strFile = Me!txtFileName</nowiki> <nowiki> objFTP.Protocol = icFTP</nowiki> <nowiki> objFTP.URL = strSite</nowiki> <nowiki> objFTP.Execute strSite, "Get " & strFile & " C:\" & strFile</nowiki> <nowiki>End Sub</nowiki> <nowiki></nowiki> <nowiki>Private Sub axFTP_StateChanged(ByVal State As Integer)</nowiki> <nowiki> ' Display a message when the transfer is finished.</nowiki> <nowiki> If State = 12 Then Msgbox "File Transferred"</nowiki>Example 3: VBA, Retrieve a File from an FTP Site <nowiki>Private Sub Form_Load()</nowiki> <nowiki> ' Set a reference to the internet transfer control.</nowiki> <nowiki> Set objFTP = Me!axFTP.Object</nowiki> <nowiki>End Sub</nowiki> <nowiki></nowiki> <nowiki>Private Sub cmdGetFile_Click()</nowiki> <nowiki> Dim strSite As String</nowiki> <nowiki> Dim strFile As String</nowiki> <nowiki> strSite = Me!txtFTPSite</nowiki> <nowiki> strFile = Me!txtFileName</nowiki> <nowiki> objFTP.Protocol = icFTP</nowiki> <nowiki> objFTP.URL = strSite</nowiki> <nowiki> objFTP.Execute strSite, "Get " & strFile & " C:\" & strFile</nowiki> <nowiki>End Sub</nowiki> <nowiki></nowiki> <nowiki>Private Sub axFTP_StateChanged(ByVal State As Integer)</nowiki> <nowiki> ' Display a message when the transfer is finished.</nowiki> <nowiki> If State = 12 Then Msgbox "File Transferred"</nowiki> <nowiki>End Sub</nowiki>