Hello again,
Many thanks for the help before with LISTVIEW. Below is the code that reads in a text file and populates it into a LISTVIEW. The text file is setup like 1,2,3,4,5,6,7. What I am trying to do is read in the value of 1 and put it in the first column, 2 for second, etc. I can easily captures the values of 1,2,3,etc. but cannot get them to display in the columns, matter of fact, I can't get any columns to display.

If Len(Dir(App.Path & "\GAME.LST")) <> 0 Then
Open App.Path & "\GAME.LST" For Input As #iFileNum
GameTotal = 0

Do While Not EOF(iFileNum)
Line Input #iFileNum, STemp
Set liEntry = ListView1.ListItems.Add(, , STemp)
mystring = STemp
mypos1 = InStr(1, mystring, ",")
mypos2 = InStr(mypos1 + 1, mystring, ",")
mypos3 = InStr(mypos2 + 1, mystring, ",")
mypos4 = InStr(mypos3 + 1, mystring, ",")
mypos5 = InStr(mypos4 + 1, mystring, ",")
mypos6 = InStr(mypos5 + 1, mystring, ",")
mypos7 = InStr(mypos6 + 1, mystring, ",")
s1 = Left(mystring, mypos1 - 1)
s2 = Mid(mystring, mypos1 + 1, mypos2 - mypos1 - 1)
s3 = Mid(mystring, mypos2 + 1, mypos3 - mypos2 - 1)
s4 = Mid(mystring, mypos3 + 1, mypos4 - mypos3 - 1)
s5 = Mid(mystring, mypos4 + 1, mypos5 - mypos4 - 1)
s6 = Mid(mystring, mypos5 + 1, mypos6 - mypos5 - 1)
s7 = Right(mystring, Len(mystring) - mypos6)

If Len(Dir(MRP & "\" & s2 & ".ZIP")) <> 0 Then
liEntry.Checked = True
GameTotal = GameTotal + 1
Else
liEntry.Checked = False
End If
Loop
Close #iFileNum
End If

Thanks,