Mostrar IP da maquina!

Bom dia galera!

Estou procurando o modulo para implantar no sistema que mostre o IP da maquina

Lembrando que a rede aqui é privada e com proxy
VBA MODULE: Get all IP

Resolvido! Amigo agora queria usar o código para mostrar o IP sem ser no form da aplicação

tipo uma caixa de texto de outro formulário


Public Function fncIP() As String
Dim objWMIService As Object
Dim strComputer As String
Dim strSql As String
Dim IPConfigSet
Dim IPConfig
Dim i

strComputer = "." 'Acesso a máquina local
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
strSql = "Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE"
Set IPConfigSet = objWMIService.ExecQuery(strSql)

For Each IPConfig In IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
For i = LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress)
   If InStr(IPConfig.IPAddress(i), "::") = 0 Then fncIP = "IP da máquina " & Environ("computername") & ":  " & IPConfig.IPAddress(i)
Next
End If
Next
Set objWMIService = Nothing
End Function