Private Sub Command1_Click()
Dim Text As String
Dim Gibts As Boolean
 
Nr = FreeFile
 
Open "D:\Test.txt" For Input As #Nr
 
While Not EOF(Nr)
 
 Line Input #Nr, Text
 
 Gibts = False
 
 For N = 0 To List1.ListCount - 1
   If List1.List(N) = Mid(Trim(Text), 1, 3) Then
     Gibts = True
     Exit For
   End If
 Next
 
 If Gibts = False Then
   List1.AddItem Mid(Trim(Text), 1, 3)
 End If
 
Wend
 
Close #Nr
 
End Sub