急！！！求助wininet InternetConnect溢出情况如何处理

[A8Null]

我是VB新手，碰到如题所示的问题，搜一直查找，未找到有用的信息，特来求助，还望高手帮忙指点一下，先谢谢了。

Public Function HttpProcess() As Boolean
    On Error GoTo errhandle
.……
 hInternetSession = InternetOpen(LoadResString(100), INTERNET_OPEN_TYPE_PRECONFIG, 
vbNullString, vbNullString, 0)

 MsgBox "111"

 hInternetConnect = InternetConnect(hInternetSession, oUrl.Host, oUrl.Port, "", "", 
INTERNET_SERVICE_HTTP, 0, 0)

 MsgBox "222"


……

errhandle:
    MsgBox "出错了……­" & Err.LastDllError & ",number = " & Err.Number & ",source = " & 
Err.Source & ",Description=" & Err.Description

如上代码是部分代码，host为120.37.91.109，port为41007，调试代码111能弹出
来，222弹不出来，执行到InternetConnect这个方法，直接跳到异常处理的出错
了，Err.Number为6，Err.Description为overflow,还希望有高手指点一下，谢谢了。

[A8Null]

难道没人用VB了？？ 还望高手路过指导下，由于是VB新手有啥还需要提供的信息还望指出来