string to int

[SteveCRM]

Dim tempcheck As Long
tempcheck = p.data(12)

type mismatch

data is an array of strings