strComputer = "."
CRLF = Chr(13) & Chr(10)
Set objWMIService = GetObject ("winmgmts:" & "!\\" & strComputer & "\root\cimv2")
Set colAdapters = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")

For Each objAdapter in colAdapters
 Msgbox  objAdapter.IPAddress(i), vbOKOnly , "   Your IP Address   "
Next