Winsock1.SendData为什么不能连续发数据,该怎么解决

Winsock1.SendData为什么不能连续发数据
Winsock1.Protocol = sckUDPProtocol
Winsock1.LocalPort = "100"
Winsock1.RemoteHost = "192.168.5.183"
Winsock1.RemotePort = "100"

 Dim BufFile(0 To 23) As Byte
 Dim BufFile1(0 To 23) As Byte

 BufFile(0) = &H55
 BufFile(1) = &H6E
 BufFile(2) = &H6
 BufFile(3) = &H0
........................此段略
 BufFile(23) = &H0

Winsock1.SendData BufFile() 

 BufFile(0) = &H10
 BufFile(1) = &H29
 BufFile(2) = &H6
 BufFile(3) = &H0
........................此段略
 BufFile(23) = &H0

Winsock1.SendData BufFile()

第二次发数据时出现 “实时错误2”，是什么原因，Winsock1.SendData为什么不能连续发数据

[解决办法]
调试LZ的以下代码,并未出现任何错误:

VB code

 Dim BufFile(0 To 23) As Byte Dim BufFile1(0 To 23) As Byte BufFile(0) = &H55 BufFile(1) = &H6E BufFile(2) = &H6 BufFile(3) = &H0........................此段略 BufFile(23) = &H0Winsock1.SendData BufFile()   BufFile(0) = &H10 BufFile(1) = &H29 BufFile(2) = &H6 BufFile(3) = &H0........................此段略 BufFile(23) = &H0Winsock1.SendData BufFile()