winsock getdata help

Private Sub wss_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim data As String
On Error Resume Next
Dim x As Integer
data = ""
wss(Index).GetData data



If InStrRev(data, "Verification") Then
Me.Caption = "found"
Else
Me.Caption = "not found"
End If

'Call KillDupes(List8)
End Sub