■以下が、ＶＢＡプログラムです。udp送受信のため、noncomsck.ocxを使っています。

Private WithEvents Winsock1 As NonComSck.Winsock ‘Winsockオブジェクトを宣言

Sub Mmosquito()
‘**********************************************************************
InitESP ‘受信はInitESPを実行し、Winsock1_DataArrivalのイベントで読み込めば良い
End Sub
Sub InitESP()
‘**********************************************************************
Dim ip, pt, lo, s As String
Dim a(10) As Byte
ip = “192.168.2.106”
pt = 10000
Set Winsock1 = CreateObject(“NonComSck.Winsock”)
Winsock1.Protocol = sckUDPProtocol
Winsock1.RemoteHost = ip
Winsock1.RemotePort = pt
Winsock1.Bind 10001 ‘このポートに受信データを受けると、Data_Arriveイベントが発生する。
Sleep 500
End Sub
Sub CloseESP()
‘**********************************************************************
‘ ソケット(UDPIP)切断
Winsock1.Close2
End Sub

Sub OutputESP(ByVal Command As String)
‘**********************************************************************
Winsock1.SendData Command
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim d As Integer
Static k As Long
Static count As Long
Winsock1.GetData d
k = k + 1
If k = 1000 Then
k = 1
End If
Cells(k, 1).Value = Timer
Cells(k, 2).Value = d
Cells(1, 3).Value = k
Cells(1, 4).Value = d
Cells(1, 6).Value = count
If 303 < d Then
count = count + 1
Beep
End If
End Sub

■excelシートは、こんな感じです。