如mytext.txt文本中有如下内容：
sam1  lhd   
sam2  lys  
sam3  xg
sam4  zxw
......
我需要读取sam1,sam2,sam3.....到a.txt中或用Text控件显示
我是新手，望能给源代码指点，这里谢谢了

版主，我是新手能否再说详细点，谢了~！
我写了这点代码：
Private Sub Command_Click()
Dim a As String
 
Open "C：\\mytext.txt" For Input As #1
Do While Not EOF(1)
   Line Input #1, a
   Text1.Text=Text & a & vbCrLf
Loop
Close #1

文本中读取了整个文本的内容！
我现在只需要读取mytext.txt中上面所说的sam1,sam2......部分。
能写代码我看看吗，谢谢了！