VB.NET中怎么将一个二维数组写入TXT文件中

VB.NET中如何将一个二维数组写入TXT文件中
如题：
Dim FilePath As New System.IO.StreamWriter("D:/1.dat", True) 'True追加、False覆盖
        Dim Myi As Integer
        Myi = Me.DataGridView1.RowCount '行数
        Dim Weather1!()
        ReDim Weather1!(2)
        Weather1(1) = Me.DataGridView1.RowCount
        Weather1(0) = qixiang
        Dim Weather2!(,)
        ReDim Weather2!(Myi, 3)
        For i = 0 To Myi - 1
            Weather2(i, 0) = DataGridView1.Rows(i).Cells(1).Value '干球温度
            Weather2(i, 1) = DataGridView1.Rows(i).Cells(2).Value '湿球温度或相对湿度
            Weather2(i, 2) = DataGridView1.Rows(i).Cells(3).Value '大气压力
        Next
        Dim Str As String = ""
        For i = 0 To 1
            Str = Weather1(i) & "," & Str
        Next
        FilePath.WriteLine(Str) '把数组1的数据写入
        FilePath.Close()
    End Sub
我想把Weather2（，）这个数组也写入到.dat文件中，请问该如何实现

PS：如果生成EXE文件后， .dat文件是EXE程序所在的文件
------解决思路----------------------
那你也像处理一维一样，把二维的当成字符串一起写入不就可以了么。

 Dim Str2 As String = ""

 For i = 0 To Myi - 1

             Str2 =  Str2 & Weather2(i,0)  & " " &  Weather2(i,1)  & "  " &  Weather2(i,2)  & "\r\n" 

  Next
------解决思路----------------------
exe所在文件夹的话，可以通过AppDomain.CurrentDomain.BaseDirectory来获取目录