Error al conectarse a IRC en VB6

[NsTeam]

Buenas, sucede que estoy tratando de conectarme a IRC desde un proyecto hecho en vb6, pero no logro conectarme porque me salta el error de:

Looking up you hostname...
Couldn't resolve your hostname.

¿Alguien tiene idea de porqué no puedo conectarme?

[elezekiel]

esta mal puesto el host, si lo obtuviste de un proyecto muy viejo deberias actualizarlo tal vez haya sido modificado.

[NsTeam]

esta mal puesto el host, si lo obtuviste de un proyecto muy viejo deberias actualizarlo tal vez haya sido modificado.

Hola el código en sí es este:

Código (vb) [Seleccionar] Expandir

'QIRCbot V1.01beta.
'This program has been written by James Marvin - WolfSpirit
'You are free to use this code as you wish, make any alterations
'and additions as you see fit just as long as you give me
'credit for the many hours of hard work I have put into this.
'Do NOT plagerise my work and call it your own, as you will
'likely put yourself in a very actionable position and I will
'use all legal and civil options available to me to seek
'recompense.
'DISCLAIMER:
'This program code is provided 'as is' and I take no responsibility for
'any damage, loss of data or any loss of income that the use of this program
'causes.
'I also take NO responsibility if this program is used for illegal purposes
'including but not limited to, spamming, flooding, or any unacceptable and
'illegal practices on any or all IRC networks and servers. To do so may
'cause you to be liable to prosecution, and to have your service cancelled
'by your ISP.
'If you wish to contact me, i can be contacted by email at:
'wolven_spirit@gawab.com
'james.marvin@dcemail.com

Public Function addLog(Message As String)
'outstr = Split(Message, Chr$(13), -1, 1)
'  For lp = 0 To UBound(outstr) - 1
'   Prntline (outstr(lp))
'  Next lp

End Function

Private Sub Command1_Click()
wskIRC.RemoteHost = "irc.domain.com"
wskIRC.RemotePort = 6667
addLog "Connecting to " & wskIRC.RemoteHost & " port " & wskIRC.RemotePort & "..."
wskIRC.Connect
End Sub

Private Sub Command2_Click()
wskIRC.Close

End Sub

Private Sub Command3_Click()
wskIRC.SendData "PRIVMSG #lionman :Quasi-BOT Version 0.09 beta. Copyright James Marvin 2010. Status:Connected. 4 users in channel." & vbCrLf
End Sub

Private Sub Command4_Click()
wskIRC.SendData "WHO #lionman" & vbCrLf

End Sub

Private Sub txtLOG_Change()

End Sub


Private Sub Command7_Click()
Dim lp As Integer
For lp = 0 To 4
  Form2.Text1.Text = Form2.Text1 + Str$(lp) + test_var(0, lp) + vbCrLf
  Form2.Text1.Text = Form2.Text1 + Str$(lp) + test_var(1, lp) + vbCrLf
  Form2.Text1.Text = Form2.Text1 + Str$(lp) + test_var(2, lp) + vbCrLf
  Form2.Text1.Text = Form2.Text1 + Str$(lp) + test_var(3, lp) + vbCrLf
Next lp

End Sub

Private Sub Command8_Click()
'Prntline "Testing One Two" + Str$(t)

t = t + 1

End Sub

Private Sub Command5_Click()
Form1.wskIRC.SendData "PRIVMSG " + Channel + " :" + Form1.OutTXT + vbCrLf
Prntline "<" + BotName + "> " + Form1.OutTXT, vbGreen
Form1.OutTXT.Text = ""

End Sub

Private Sub Form_Load()
Dim lp As Integer
Dim tmpstring As String
lp = 0
On Error GoTo ero:
Open "seenusers.ini" For Input As #1
   Do While Not EOF(1)
     Input #1, tmpstring
     ndta = Split(tmpstring)
     seen_users(lp, 0) = ndta(0)
     seen_users(lp, 1) = ndta(1)
     seen_users(lp, 2) = ndta(2)
     lp = lp + 1
   Loop
   Close #1
   seen_users(lp, 0) = "EOL"
   Form1.List1.Clear
   lp = 0
   
     
Form2.Visible = True
sntflag = True
Exit Sub


ero:
  seen_users(0, 0) = "EOL"
  Form2.Visible = True
sntflag = True
 

End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim lp As Integer
Open "seenusers.ini" For Output As #1
While seen_users(lp, 0) <> "EOL"
DoEvents
Print #1, seen_users(lp, 0) & " " & seen_users(lp, 1) & " " & seen_users(lp, 2)
  lp = lp + 1
Wend
Close #1

End Sub

Private Sub OutTXT_KeyPress(KeyAscii As Integer)
Dim tmstrng As Integer
If KeyAscii = 13 Then
If Form1.OutTXT <> "" Then

tmstring = "PRIVMSG " + Channel + " :" + Form1.OutTXT
snd_data (tmstring)
Prntline "<" + BotName + "> " + Form1.OutTXT, vbCyan
Form1.OutTXT.Text = ""
End If
End If
End Sub

Private Sub wskIRC_Connect()
Dim rmthst As String
addLog "Connected!"
Dim Random As Integer
Randomize
Random = Rnd * 1000
BotName = "Spock-Bot"
addLog "Username: " & Name
wskIRC.SendData "NICK " & BotName & vbCrLf
wskIRC.SendData "USER bot bot bot bot" & vbCrLf
Channel = "#lionman"
wskIRC.SendData "JOIN " & Channel & vbCrLf
End Sub

Private Sub wskIRC_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
  wskIRC.GetData Data
  InDta (Data)
  'Lets now process the data
  prc_data (0)
 
End Sub

Private Sub wskIRC_SendComplete()
  sntflag = True
End Sub

¿Qué es lo que tendría que agregar para poder conectarme?