急求，如何用vb读取txt文件并保存到二维数组里，如所给的数据 谢谢

Private Sub Command1_Click() Dim i As Integer '因为数据里有冒号，所以采用字符串格式 Dim d() As String Dim LStr() As String Dim H As Integer Dim L() As String '先将数据读取到动态数组LStr()，假设文本文件存放于与程序文件同一个文件夹 Open App.Path & "\data.txt" For Input As #1