vba 获得本机的ip address

Dim strComputer As String
    Dim objWMI As Object
    Dim colIP As Object
    Dim IP As Object
    Dim i As Integer
    Dim ipserver As String
    ipserver = ""
    

    strComputer = "."
    Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colIP = objWMI.ExecQuery _
        ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
        
    For Each IP In colIP
        If Not IsNull(IP.IPAddress) Then
            For i = LBound(IP.IPAddress) To UBound(IP.IPAddress)
                ipserver = IP.IPAddress(i)
                MsgBox IP.IPAddress(i), vbInformation, IP.Description(i)
                MsgBox （ipserver）
        Next
        End If
    Next