Private Sub lstteams_Click()
Dim FF As Long
Dim LineOfText As String
FF = FreeFile
Open "C:\Documents and Settings\Me\Desktop\New Folder\stats.txt" For Input As #FF
Do While Not EOF(FF)
Line Input #FF, LineOfText

If Len(LineOfText) Then List1.AddItem LineOfText
Loop
Close #FF
End Sub