VB winsock发送时提示 "运行时错误'40006'"，我怎么修改代码

这个方法是很好的，但是我在用的时候出现报错：
参数不可选
然后我改成这样

 '判断是否连接了，才发送数据
         j = 1
        Do Until Winsock1.State = 7 Or j > 600
        j = j + 1
        DoEvents
       Call Sleep(3)
        Loop
        If j >= 600 Or Winsock1.State = 7 Then
    ' 1分钟后,对方仍然未同意,连接超时.
     End If
        Winsock1.SendData bisend

虽然没有出现频繁的报错40006，但是还是有错误发生提示：
所以我就在报错的调试地点之前加了

 On Error Resume Next

这个代码是让程序不报错的，我之前采用的是timer定时的，所以只要不报错的情况下，隔一段时间就会跳出错误的代码块