vb.net读取txt文件数据,并且转换为二维数组

Public Class Func
    Public Shared Sub Main() '测试代码！ 
        Dim Temp As String()() = Func.GetArrayByTxt("D:\Test.txt")
    End Sub
 
    Public Shared Function GetArrayByTxt(path As String) As String()()
        Dim arr As String() = IO.File.ReadAllLines(path, Encoding.Default)
        Dim par As Char() = {",", "."}
        Dim result(arr.Length - 1)() As String
        For i As Integer = 0 To arr.Length - 1
            result(i) = arr(i).Split(par)
        Next
        Return result
    End Function
End Class