Meu IP

Para consultar o seu IP público atual usando VBA, você pode utilizar APIs externas que fornecem esse serviço. Uma das APIs mais simples para essa finalidade é a “http://api.ipify.org“, que retorna o IP público do usuário que fez a solicitação. Este serviço é gratuito e não requer uma chave API.

Function ConsultarIPAtual() As String
    Dim httpObject As Object
    Set httpObject = CreateObject("MSXML2.XMLHTTP")

    ' URL da API ipify
    Dim url As String
    url = "http://api.ipify.org"

    ' Enviar uma solicitação GET
    httpObject.Open "GET", url, False
    httpObject.Send

    ' Verificar se a solicitação foi bem-sucedida
    If httpObject.Status = 200 Then
        ' Retorna o IP atual
        ConsultarIPAtual = httpObject.responseText
    Else
        ' Retorna uma mensagem de erro
        ConsultarIPAtual = "Erro na solicitação: " & httpObject.Status
    End If

    Set httpObject = Nothing
End Function