Excel And VB6 Question?

[trisuglow]

What about this then?

Sub ImportCSV()
    Dim f As Integer
    Dim s As String
    Dim l() As String
    Dim r As Long
    
    r = 20
    f = FreeFile
    Open "C:\PersonalContacts.csv" For Input As f
    While Not EOF(f)
        Line Input #f, s
        l = Split(s, ",")
        For c = 1 To UBound(l)
            Cells(r, c).Value = l(c)
        Next
        r = r + 1
    Wend
    Close f
End Sub