Visual Basic - Me podeis explicar este codigo?

Me lo podeis explicar paso a paso?.
No termino de entender del todo el codigo.

If InStr(data, "PING") = 1 Then
Winsock1.SendData "PONG " & Split(data, " ")(1)

tengo una variable data de tipo string que tiene algun tipo de datos, en esa variable busco la palabra String mediante la linea " If InStr(data, "PING") = 1 Then " ... si la encuentra entra en el if y lo que hace es mandar un PONG a traves de un socket y agregarle un espacio a la variable data que obviamente tiene una cadena de caracteres.

chau chau adios..

perdon.. busco la palabra PING quise poner, no String..... Sorry :-)

Muchas gracias Herman.