取得したいアダプタのDefaultGatewayが判っているならWMIを使ったこんなのはどうでしょう。 1つのアダプタに複数のIPが割り当てられている場合等は考慮していません。 また、サンプルなので変数宣言やエラー処理も適当です。 Sub Sample() strDefaultGateway = "192.168.50.254" '←DefaultGatewayがコレのIPを調べる strIp = "該当無し" Set objNic = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2").ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where (IPEnabled = TRUE)") For Each oneNic In objN