chat programı hosting ftp link

Arkadaşlar ben visualbasicte chat programı yapıyorumda hosting lazımmış aldım bedava hosting ama adamın kodlarda belirttiği ftp linki bu şekilde
ftp://ftp.deneme222.pusku.com/chat.txt

benim belirttiğimde bu şekilde ama olmuyor
http://ftpupload.net/chat.txt

benim kodlarım

Public Class Form2

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim name As String
name = RichTextBox1.Text
Try
Dim client As New Net.WebClient
client.Credentials = New Net.NetworkCredential("b7_24955655", "fatih2580")
client.UploadString("http://ftpupload.net/chat.txt", RichTextBox1.Text & name & " : " & RichTextBox2.Text + vbNewLine)

Catch ex As Exception
MsgBox("Sunucu hatası lütfen daha sonra tekrar deneyiniz")
End Try
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
Dim client As New Net.WebClient
client.Credentials = New Net.NetworkCredential("b7_24955655", "fatih2580")
RichTextBox1.Text = client.DownloadString("http://ftpupload.net/chat.txt")
Catch ex As Exception
MsgBox("Sunucu hatası lütfen daha sonra tekrar deneyiniz")
End Try
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Dim client As New Net.WebClient
client.Credentials = New Net.NetworkCredential("b7_24955655", "fatih2580")
RichTextBox1.Text = client.DownloadString("http://ftpupload.net/chat.txt")

Catch ex As Exception
MsgBox("Sunucu hatası lütfen daha sonra tekrar deneyiniz")
End Try
End Sub
End Class

adamın kodları


Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim name As String
name = RichTextBox1.Text
Try
Dim client As New Net.WebClient
client.Credentials = New Net.NetworkCredential("u467844088.chat", "hqqww7j3")
client.UploadString("ftp://ftp.deneme222.pusku.com/chat.txt", RichTextBox1.Text & name & " : " & RichTextBox2.Text + vbNewLine)

Catch ex As Exception
MsgBox("Sunucu hatası lütfen daha sonra tekrar deneyiniz")
End Try
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
Dim client As New Net.WebClient
client.Credentials = New Net.NetworkCredential("u467844088.chat", "hqqww7j3")
RichTextBox1.Text = client.DownloadString("ftp://ftp.deneme222.pusku.com/chat.txt")
Catch ex As Exception
MsgBox("Sunucu hatası lütfen daha sonra tekrar deneyiniz")
End Try
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Dim client As New Net.WebClient
client.Credentials = New Net.NetworkCredential("u467844088.chat", "hqqww7j3")
RichTextBox1.Text = client.DownloadString("ftp://ftp.deneme222.pusku.com/chat.txt")

Catch ex As Exception
MsgBox("Sunucu hatası lütfen daha sonra tekrar deneyiniz")
End Try
End Sub
End Class