export data into .txt file

Dim w1(,) As Double = CType(oW1, Array)
                    Dim cCount As Integer = w1.GetLength(1)
                    Dim rCount As Integer = w1.GetLength(0)

                    Dim sw As System.IO.StreamWriter
                    sw = System.IO.File.CreateText("f:corr1.txt")


                    For i As Integer = 1 To rCount

                        For j As Integer = 1 To cCount
                            sw.Write(w1(i, j))
                            If j < cCount Then
                                sw.Write(Microsoft.VisualBasic.Chr(9))
                            End If
                        Next j
                        If i < rCount Then
                            sw.Write(Microsoft.VisualBasic.Chr(13) + Microsoft.VisualBasic.Chr(10))
                        End If


                    Next i

                    sw.Close()


                    Dim w2(,) As Double = CType(oW2, Array)
                    Dim cCount2 As Integer = w2.GetLength(1)
                    Dim rCount2 As Integer = w2.GetLength(0)

                    Dim sw2 As System.IO.StreamWriter
                    sw2 = System.IO.File.CreateText("f:corr2.txt")


                    For i As Integer = 1 To rCount2

                        For j As Integer = 1 To cCount2
                            sw2.Write(w2(i, j))
                            If j < cCount2 Then sw2.Write(Microsoft.VisualBasic.Chr(9))
                        Next j
                        If i < rCount2 Then sw2.Write(Microsoft.VisualBasic.Chr(13) + Microsoft.VisualBasic.Chr(10))

                    Next i

                    sw2.Close()