VB怎样写才能每次读取一个TXT文本里的数字？

VB怎样写才能每次读取一个TXT文本里的数字？数字的范围是0~7，文本不是单行的，是多行的，一共有10行，求代码！

每行有20个，怎么把单个数字保存在text1.text，不是只取出一个数字，而是全部取出，只不过是从头开始，每次取一个，取完第一个，清空text1,再取第二个。

以下代码仅供参考。朋友。
Private Sub Command1_Click() '按钮1，以只读的方式打开文件
Open "d:/002.txt" For Input As #1
End Sub

Private Sub Command2_Click()
Do While Not EOF(1)
Input #1, a '读取文件中的一个数据，存放到变量a中
Print a '处理读出的一个数据，此处设定为输出到屏幕上
Loop
Close '读完后，关闭文件
End Sub

private sub command1_click() dim data() as string dim i as integer dim s as string commondialog1.showopen f1 = commondialog1.filename open f1 for binary as #1 redim data(lof(1) - 1) s = strconv(inputb$(lof(1), 1), 64) data = split(s, vbcrlf) for i = 0 to ubound(data) list1.additem data(i) next end sub