With Winsock1
    If .State ＜＞ sckClosed Then .Close

    '绑定
    If lngLocalPort = 0 And strLocalIP = "" Then .Bind
    If lngLocalPort = 0 And strLocalIP ＜＞ "" Then .Bind 0, strLocalIP    '效果同不定义--＞ .Bind , strLocalIP

    If lngLocalPort ＜＞ 0 And strLocalIP = "" Then .Bind lngLocalPort
    If lngLocalPort ＜＞ 0 And strLocalIP ＜＞ "" Then .Bind lngLocalPort, strLocalIP
End With

测试下来

.Bind 0, strLocalIP
就是
.Bind , strLocalIP

端口0会让Winsock1自动找空闲端口，如果strLocalIP给的IP，比如"192.168.1.8"不是当前计算机可用IP会报错。