Vb6 Dailup connection problem

[miko]

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

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 !!!!!!!! :confused: