Try and Spot The Error! I can't :(

[jltl]

What this does is it goes through the array "items" and if in the current element contains what is contained in the variable item, then it parses it down. Now it worked earlier when Item was a variable, but rather a set value, but now it doesn't. Can you spot the error?

Private Function GetItems(Item As String)
Dim items() As String
Dim H As Integer
 
MsgBox Item
Item = Parse(HTML, "' onClick=""", "(you can still haggle to push the price lower!)') ) { return false; }""", True)
items() = Split(Item, vbCrLf)
For H = 0 To UBound(items)
 MsgBox items(H)
 If InStr(1, items(H), Item, vbTextCompare) Then
  URL = Between(items(H), "this.href='", "'; if ( !confirm('Are you sure you wish to purchase")
  MsgBox URL
  Exit Function
 End If
Next H
End Function

Many thanks!