Convert StringIP to NumericIP

Function CLngIP(ByVal asNewIP)
	Dim lnResults
	Dim lnIndex
	Dim lnIpAry
	' Split the IP address using the dot as a delimiter
	lnIpAry = Split(asNewIP, ".", 4)
	' Loop through each number in the IP address
	For lnIndex = 0 To 3
		
		' If we are not working with the last number...
		If Not lnIndex = 3 Then
			
			' Convert the number to a value range that can be parsed from the others
			lnIpAry(lnIndex) = lnIpAry(lnIndex) * (256 ^ (3 - lnIndex))
		
		End If
		
		' Add the number to the results
		lnResults = lnResults + lnIpAry(lnIndex)
	
	Next
	' If storing number within an Access Database,
	' The variable type "Long" ranges from -2147483648 to 2147483647
	' You will need to subtract 2147483648 from the number
	' before querying the database.
	
	' lnResults = lnResults - 2147483648
	' Return the results
	CLngIP = lnResults
End Function