Public Class Form1

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim name As String
        name = TextBox1.Text
        Try
            Dim client As New Net.WebClient
            client.Credentials = New Net.NetworkCredential("a8027650", "Aquí va mi password del 000webhost")
            client.UploadString("ftp://server39.000webhost.com/chat.txt", RichTextBox1.Text & "" & name & ": " & RichTextBox2.Text & vbNewLine)
            RichTextBox2.Clear()
        Catch ex As Exception
            MsgBox("Error de conexión")
        End Try
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Try
            Dim client As New Net.WebClient
            client.Credentials = New Net.NetworkCredential("a8027650", "Aquí va mi password del 000webhost")
            RichTextBox3.Text = client.DownloadString("ftp://server39.000webhost.com/chat.txt")
            If RichTextBox3.Text = RichTextBox1.Text Then
            Else : RichTextBox1.Text = RichTextBox3.Text
            End If
        Catch ex As Exception
        End Try
    End Sub
End Class