Lascia perdere quella classe ... scrivi semplicemente

codice:
Dim WshShell As Object
Set WshShell = CreateObject("Wscript.Shell")
WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\GlobalMaxTcpWindowSize", &HFFFF&, "REG_DWORD"
Set WshShell = Nothing
P.S. Occhio a variare questi parametri del TCP ... in genere si peggiorano le performance globali del sistema ...