Simply add another Winsock control and listen to it. You say "Broadcasting" so it's probably on UDP and on the network's broadcast address so be sure you have your subnet calculated correctly. For a /24 subnet, the last octet will be .255. Save it in a variable called NetworkBroadcastAddress$. Similarly, store the client computer's address in MyIP$ . Then, if your second socket is called TCPClient2, this should work for you to and listen for UDP broadcasts on 25001.
With TCPClient2
.LocalIP = NetworkBroadcastAddress$
.Protocol = sckUDPProtocol
.Bind 25001, MyIP$
.Listen
If .State = sckListening Then
Msgbox "Listening on Socket " & .LocalPort
Else
Msgbox "Deaf !"
End If
End With