急！如何用VB使用Input语句读多行多个数据的顺序文件

Private Sub Command1_Click() Dim xm$, xb$, hy$, nl%, dq$, lb$ Form1.Cls Input #1, xm, xb, hy, nl, dq, lb Print Tab(18); "姓名：" & xm Print Tab(18); "性别：" & xb Print Tab(18); "婚否：" & hy Print Tab(18); "年龄：" & nl