Ajuda com Upload de imagens via VB (Iniciante)

[Teteusin18]

Olá pessoal, preciso de uma ajudiinha aki no VB, sou iniciante, e estou desenvolvendo um programinha de Upload de Imagens

que enviará para o meu servidor, e estou querendo que atribua um nome na hr de enviar, veja abaixo

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
My.Computer.Network.UploadFile((txtImagem.Text), "ftp://site.com/(txtImagem.Text)", "user", "senha", True, 500)
    End Sub

    Private Sub btnSelecionarArquivos_Click(ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles btnAbrir.Click
       ' Abre a janela onde o usuário escoherá a imagem (Ver Imagem)
        AbrirArquivo.ShowDialog()
        ' Atribui o caminho da imagem que foi escolhida ao objeto txtImagem
        txtImagem.Text = AbrirArquivo.FileName


        ' Faz verificação para se certificar que o usuário escolheu uma imagem
        If Not txtImagem.Text = "" Then
            ' Caso haja conteúdo no objeto txtImagem significa que o usuário escolheu uma imagem
            ' Então atribui o caminho escolhido ao objeto pbImagem
            pbImagem.Image = System.Drawing.Bitmap.FromFile(txtImagem.Text)
        End If
    End Sub

Quero que envie a imagem para o site com o nome oriiginal do arquivo, mas esta dando Erro! Me ajudemm