title: How to retrieve this computer's IP address?
body: <p>What is the least cumbersome (module-inclusion, code lenght, etc) way to retrieve the machine IP address (of the first interface open)?
  I know of some solutions using MSINET, but I believe we can do better.
  Don't reply</p>
  
  <pre><code>Function HomeIP() as Atring
  HomeIP= "127.0.0.1"
  End Function
  </code></pre>
  
  <p>because it's not that funny... or correct.
  The scenario is a question wiht a <a href="https://stackoverflow.com/questions/730052/implement-auto-increment-with-word-macro">document ID feature</a> I'm trying to build a reply for. </p>