How can I compare a integer with string [array]

Private Function NewPrtp (lIDNew As Long, sStringaOld As String) As Boolean
Dim vOld
vOld = Split(sStringaOld, ",")
"Here i want to compare the new Id with the old ones"

End Function