This code works with all types of internet connections,nor dail up i wonder why ?!!!

Code:

On Error Resume Next
If Winsock1.State <> sckConnected Then
'Gets length of chat URL
meh = Len(txtsite.Text)
bleh = Hex(Val(meh))
If Len(bleh) = "3" Then
bleh = "0" & bleh
End If
If Len(bleh) = "4" Then
lft = Left(bleh, 2)
rgt = Right(bleh, Len(bleh) - 2)
bleh = lft & " " & rgt
End If
wlen2 = bleh
Pos = 1
While Pos <= Len(wlen2)
CurChar = Mid(wlen2, Pos, 2)
If wlen2 = "" Then
wlen = Chr(CLng("&H" & CurChar))
Else
wlen = wlen & Chr(CLng("&H" & CurChar))
End If
Pos = Pos + 3
Wend
'Does SITEID
meh = txtid.Text
bleh = Hex(Val(meh))
If Len(bleh) = "3" Then
bleh = "0" & bleh
End If
lft = Left(bleh, 2)
rgt = Right(bleh, Len(bleh) - 2)
bleh = lft & " " & rgt
siteid = bleh
resetid.Text = bleh
Pos = 1
While Pos <= Len(siteid)
CurChar = Mid(siteid, Pos, 2)
If siteid = "" Then
siteid2 = Chr(CLng("&H" & CurChar))
Else
siteid2 = siteid2 & Chr(CLng("&H" & CurChar))
End If
Pos = Pos + 3
Wend
'Does nickname
bleh = ""
meh = Len(txtnick.Text)
bleh = Hex(Val(meh))
If Len(bleh) = "3" Then
bleh = "0" & bleh
End If
If Len(bleh) >= "4" Then
lft = Left(bleh, 2)
rgt = Right(bleh, Len(bleh) - 2)
bleh = lft & " " & rgt
End If
nick = bleh
Pos = 1
While Pos <= Len(nick)
CurChar = Mid(nick, Pos, 2)
If nick = "" Then
nlen = Chr(CLng("&H" & CurChar))
Else
nlen = nlen & Chr(CLng("&H" & CurChar))
End If
Pos = Pos + 3
Wend
SckClient.RemoteHost = txtport.Text
SckClient.RemotePort = "8396"
Command1.Enabled = False
SckClient.Connect
Else
MsgBox "Already connected!", vbCritical, "Connection Tester"
End If

Could anyone help please !!!!!!!!