Code:
Private Sub HPDisplay(RHost As String, Message As String) 'Dim wSock ' declare a object Dim i ' idem Dim TempTimer As Double 'Set wSock = CreateObject("mswinsock.winsock") ' create the winsock socket wSock.RemoteHost = RHost '"149.160.31.105"