FTP File Upload Via VB Program Source

Public Class Form1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox1.Text & TextBox2.Text = "" Then
            MsgBox("Wrong FTP Details")
        Else
            Try
                My.Computer.Network.UploadFile(TextBox3.Text, ComboBox1.SelectedItem + TextBox4.Text + "/" + Label5.Text, TextBox1.Text, TextBox2.Text, True, 500)
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            TextBox5.Text = "http://" + TextBox4.Text + "/" + Label5.Text
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog1.ShowDialog()
        OpenFileDialog1.Title = "Choose a File!"
        TextBox3.Text = OpenFileDialog1.FileName
        Label5.Text = OpenFileDialog1.SafeFileName
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.SelectedIndex = 0
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If TextBox5.Text = "" Then
            MsgBox("No Text To Copy")
        Else
            Clipboard.SetText(TextBox5.Text)
        End If
    End Sub
End Class