Private Sub ws_connect()

Dim msg As String

ws.SendData "NICK nacci" & vbCrLf
ws.SendData "USER nacci * *: Wara Botti" & vbCrLf



End Sub