Change the line:
Code:
sDataToSend = "Echo This"
That, in turn, will affect the code:
Code:
If IcmpSendEcho(hPort, _ 
                dwAddress, _ 
                sDataToSend, _       ' this is where you
                Len(sDataToSend), _  ' get the 9 byte length
                0, _ 
                ECHO, _ 
                Len(ECHO), _ 
                PING_TIMEOUT) Then