chat.txt teki string'i upload ederken çok kasıyor

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim name As String
        name = TextBox1.Text
        Try
            Dim client As New Net.WebClient
            client.Credentials = New Net.NetworkCredential("sansür", "sansür)
            client.UploadString("sansür", RichTextBox1.Text & name & ":" & RichTextBox2.Text + vbNewLine)
        Catch ex As Exception
            MsgBox("Sunucuya bağlanılamıyor lütfen daha sonra tekrar deneyiniz.", MsgBoxStyle.Information, "Bilgi")
        End Try
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Try
            Dim client As New Net.WebClient
            client.Credentials = New Net.NetworkCredential("sansür", "sansür")
            RichTextBox1.Text = client.DownloadString("sansür")
        Catch ex As Exception
            MsgBox("Sunucuya bağlanılamıyor lütfen daha sonra tekrar deneyiniz.", MsgBoxStyle.Information, "Bilgi")
        End Try
    End Sub
End Class