Visual Basic

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveButton.Click

        Dim cellValue As String, i As Integer
        Dim returnValue As Boolean
        Dim FileWriter As StreamWriter
        Dim results As DialogResult

        results = SaveFileDialog1.ShowDialog

        If results = DialogResult.OK Then
            FileWriter = New StreamWriter(SaveFileDialog1.FileName, False)


            For r As Integer = 1 To 3
                For rr As Integer = 1 To 3
                    For c As Integer = 1 To 3
                        For rc As Integer = 1 To 3

                            cellValue = xx(r, c).rec(rr, rc).Text
                            returnValue = String.IsNullOrEmpty(cellValue)
                            If returnValue = True Then

                                FileWriter.Write("00 ")
                            Else
                                FileWriter.WriteLine(cellValue + " ")

                            End If
                        Next


                        i += 1
                    Next
                Next
            Next
            FileWriter.Close()


        End If
        Me.Close()
    End Sub

Dim responseArray As Byte()
Try
    Dim WC As New System.Net.WebClient
    responseArray = WC.UploadFile("http://someserver/Uploads/upload.aspx", "POST",  "\myfile.doc")
    txtResponce.Text = "Check the file at " + Encoding.ASCII.GetString(responseArray)
Catch ex As Exception
    MsgBox(ex.ToString)
End Try