>>866
参照設定で、Microsoft Winsock Control x.x すれば、

Debug.Print Createobject("MSWinsock.Winsock").LocalIP

とか、

Debug.Print Createobject("MSWinsock.Winsock").LocalHostName