Dim a As New ArrayList

        Dim sr As New System.IO.StreamReader("c:\text.txt", System.Text.Encoding.Default)

        '存入資料
        Do While sr.Peek > -1
            a.Add(sr.ReadLine)
        Loop

        sr.Close()

        '讀取資料
        For i As Integer = 0 To a.Count - 1
            Dim t As String = a(i)
        Next