Dim Raw  
  
set Raw = WScript.CreateObject("MSWinsock.Winsock", "WSEvent_")  
  
Raw.Connect "irc.server.com" , 6667  
  
msgbox "Running - close to continue"  
  
Raw.Close  
  
Sub WSEvent_Connect()  
  
msgbox "Connected!"  
  
end sub  
  
Sub WSEvent_DataArrival(bytes)  
  
MyString="blank"  
  
Raw.GetData MyString  
  
msgbox "data: "+CStr(bytes)+chr(13)+MyString  
  
end sub