Module1-FindIP

'2019-04-22 RookieITSec note - This script was created by somoene else.  Found here - https://www.geekality.net/2016/03/07/excel-function-for-nslookup-in-worksheet/ and here https://github.com/cscholz/scripts/blob/master/Windows/VBA/Excel/nslookup.txt

Function FindIP(strTest As String) As String
    Dim RegEx As Object
    Dim valid As Boolean
    Dim Matches As Object
    Dim i As Integer
    Set RegEx = CreateObject("VBScript.RegExp")
    
    RegEx.Pattern = "\b(?:\d{1,3}\.){3}\d{1,3}\b"
    valid = RegEx.test(strTest)
    If valid Then
        Set Matches = RegEx.Execute(strTest)
        FindIP = Matches(0)
    Else
        FindIP = ""
    End If
End Function