Skip to content

Instantly share code, notes, and snippets.

@talatham
Created June 12, 2013 14:28
Show Gist options
  • Save talatham/5765768 to your computer and use it in GitHub Desktop.
Save talatham/5765768 to your computer and use it in GitHub Desktop.
Convert IP address to integer format.
' ------------------------------------------------------------
' Convert IP Address - convert IP Address to integer format
' ------------------------------------------------------------
Function ConvertIP(IPAddress)
Dim IPnumber, IPArray, counter
IPArray = Split(IPAddress,".")
IPNumber = CDbl(0)
For counter = 0 To UBound(IPArray)
IPNumber = IPNumber * 256 + IPArray(counter)
Next
ConvertIP = IPNumber
End Function
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment