Syntax error assistance required

[Aussiebear]

I have the following code within a module which keeps throwing up a syntax error 'wrong number of arguments or invalid property"

For i = 2 to lastRow
    ip=Trim(ws.Source.Cells(i, "C").Value)
    Dim parts() as String
    parts = Split(ip, ".")
    If UBound(parts) >=2 Then
        ipPrefix = parts(0) & "." & parts(1) & "." & parts(2)
    Else
        ipPrefix = ip 'fallback if not a valid IP
    End If
    If Not ip.Dict.exists(ipPrefix) Then
        Set rowList = New Collection
        ipDict (ipPrefix) = rowList
    End If
    ipDict(ipPrefix).add 1
Next i

How do I fix this issue?