如何用VB读取txt文件中的数据,代码已经有了，就是不知道如何在txt中输入数据

我是要用以前的一些资料来预测后几年的情况，程序代码我已经有了，就是不知道数据在txt文件中的输入顺序是怎样的。我的程序代码是：
Private Sub ShunXuWenJian_Click()
     Picture1.Visible = False                                                  '不显示SQL查询图
     '设置【请选择顺序文本文件名：】通用对话框属性并显示对话框
     CommonDialog1.FileName = ""
     CommonDialog1.DialogTitle = "请选择顺序文本文件名："
     CommonDialog1.Filter = "*.txt|*.txt"
     CommonDialog1.InitDir = "J:\DataBase"
     CommonDialog1.ShowOpen
     AA$ = CommonDialog1.FileName
     
     On Error GoTo ErrorHandler
     Open AA$ For Input As #1
     n = -1
     Do While Not EOF(1)                                   '到顺序文本文件数据序列末尾时停止读数
         n = n + 1
         If n = 0 Then
              Input #1, m                                                    '读取预报因子总数值
              If m > 50 Then                                            '预报因子总数m不能超过50
                   MsgBox "预报因子总数不能超过50，请减少因子数目！"
                   Close #1
                   Exit Sub
              End If
              ReDim XX(m + 1)                         '重定义存放预报因子、对象名等的动态数组变量
              ReDim X_Y(m + 1, n)               '重定义存放预报因子、对象样本观测值的动态数组变量
              For i = 0 To m + 1
                    '读取序列开始年份、预报因子名、预报对象名
                    Input #1, XX(i)                       'XX(0)即序列开始年份，XX(m+1)即预报对象
              Next i
         End If
         ReDim Preserve X_Y(m + 1, n)
         For i = 1 To m + 1
         Input #1, X_Y(i, n)
         Next i                                            '读取预报因子、预报对象值
     Loop
     
     n = n + 1                                                                 '计算序列样本容量n
     Label2(0).Caption = XX(m + 1)                                                '显示预报对象名
     Label2(1).Caption = XX(1) & "等" & m & "项"                                  '显示预报因子名
     Label2(2).Caption = XX(0): Label2(3).Caption = XX(0) + n - 1         '显示序列开始、结束年份
     HuiGuiFenXi.Enabled = True
     Close #1
     Exit Sub
ErrorHandler:
     If Err.Number = 53 Then
           MsgBox "读取的顺序文本文件不存在，请核对所输入的文件名是否正确。"
     Else
           MsgBox (Err.Description)
     End If
     Close #1
End Sub我的数据是30-79年的一个数据，来预测80年的，现在不知道文本格式怎么弄，本人现在就卡在这儿了，下面的进行不下去了，请各位高手们帮帮我这个小菜鸟，先谢谢了。