What does this piece of Visual Basic code do?

[None]

ReDim Preserve laHouseData(liCount, 2) As String
liCount = 0
Open lsFile For Input As #1
Do While Not EOF(1)
Line Input #1, lsRec
liCount = liCount + 1
li = 1
For liLoop = 0 To 2
lj = li
li = InStr(li, lsRec, ",")
If li = 0 Then
If liLoop = 2 Then
li = Len(lsRec) + 1
Else
MsgBox "Data File structure not found!!!"
gsGetYellowData = False
Exit Function
End If
End If
If liLoop > 0 Then
laHouseData(liCount, liLoop) = Trim(Mid(lsRec, lj, li - lj))
End If
li = li + 1
Next liLoop
Loop
Close #1
gfGetYellow = True
End Function