(Ajuda) Conectando ao Irc

[Densyy]

Bom galera preciso de ajuda na conexão ao irc

tentei diverssas coisas

diverssos exemplos na rede

o que cheguei até agora

Dim server, porta, nick, canal As String

Private Sub Command1_Click()
server = "irc.example.org"
porta = "6667"
nick = "Teste"
canal = "#channel"
Winsock1.Connect server, porta
End Sub

Private Sub Winsock1_Connect()
Winsock1.SendData ("IDENT" & nick & vbCrLf)
Winsock1.SendData ("JOIN " & canal & vbCrLf)
Winsock1.SendData ("NICK " & nick & vbCrLf)
MsgBox "Conectado ao Mirc"
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox "Erro"
End Sub

Aguardo respostas

Desde já agradeço

Editado Agosto 13, 2012 por Densyy