Bot Wont connect to IRC Server

[zerofool2005]

I have been trying to code a bot in VB 6.0 but it wont connect to th irc server

Dim RemoteHost As String
Dim RemotePort As String
Dim BotChan As String
Dim Botnick As String
Dim BotRealName As String
Dim RndNum As String
Private Sub Form_Load()
RandomNumb
Config
Winsock1.RemoteHost = RemoteHost
Winsock1.RemotePort = RemotePort
Winsock1.Connect
Do Until Winsock1.State = sckConnected
DoEvents: DoEvents: DoEvents: DoEvents
Loop
End Sub
 
Private Sub Config()
RemoteHost = "192.168.1.1"
RemotePort = 6667
LocalPort = 7425
BotChan = "#h4xx0rs"
Botnick = "0FBot" & RndNum
BotRealName = "Zerofool2005 Bot"
End Sub
Private Sub Winsock_Connect()
Winsock1.SendData "NICK " & Botnick & vbCrLf
Winsock1.SendData "USER " & Botnick & Winsock1.LocalHostName & "h4xx0rs" & ":" & BotRealName & vbCrLf
Winsock1.SendData "JOIN " & BotChan & vbCrLf
End Sub
 Private Sub RandomNumb()
Randomize 'makes it random
    Value = Int(1000 * Rnd)
    RndNum = Str$(Value)
 End Sub

This isnt a malicious bot. Its just a bot for the channel. Any ideas why it wont connect?