How to block a certain port by using VB6?