FileSystemObject读文件的问题,急啊

Question

我想用FSO组件读取TXT文件中的数据到一个二维数组里,并显示在文本框中
可是调不出来啊,大家帮我看看呗,万分感谢
Public fso As New FileSystemObject
 Public ts As TextStream Private Sub Form1_load()
Dim song(0 To 3, 0 To 3) As String
 Set fso = CreateObject("Scripting.FileSystemObject")
  Set ts = fso.OpenTextFile(App.Path + "\个人专辑.txt", ForAppending)
  Dim i As Integer
  j = 0
  Do While Not ts.AtEndOfStream
    j = j + 1
    For i = 0 To 3
       song(j, i) = ts.ReadLine
    Next i
  Loop
  ts.Close
Dim n As Integer
n = 1
Public Sub displaydata(n)
  Dim i As Integer
  For i = 0 To 3
    Form1.Text1(i).Text = song(n, i)
  Next
End Sub