vb怎么将txt读到vb数组里

Dim a(),k open"txt的路径"for input as #1 do until eof(#1) redim a(k) input #1,a(k) k=k+1 loop close