Private Sub Command1_Click()
Open "C:\nastr.txt" For Input As # 1 
Do Until EOF( 1 )
Line Input # 1 , strtxt
strtemp = Left(strtxt,  10 )
strtemp2 = Mid(strtxt,  12 ,  16 )
List1.AddItem (strtemp)
List2.AddItem (strtemp2)
Loop
End Sub

Private Sub Command1_Click()
Dim A As Variant
Open "C:\nastr.txt" For Input As # 1 
Do Until EOF( 1 )
Line Input # 1 , strtxt
A = Split(strtxt, "|")
List1.AddItem (A( 0 ))
List2.AddItem (A( 1 ))
MsgBox A( 0 )
MsgBox A( 1 )
Loop
End Sub