Public Function GetIpAddressFromLong(lAddr As Long) As String
 
Dim sHlp As String
 
sHlp = (lAddr And &HFF) & "." & ((lAddr And &HFF00) / (2 ^ 8) And &HFF) & "." & _
  ((lAddr And &HFF0000) / (2 ^ 16) And &HFF) & "." & ((lAddr And &HFF000000) / ( _
  2 ^ 24) And &HFF)
GetIpAddressFromLong = sHlp
 
End Function

Public Function IpAddressToLong(sIpAddr As String) As Long
 
Dim sHlp() As String
Dim Addr(4) As Double
Dim lHlp As Double
 
'Testvar. 
Dim d1 As Double
Dim d2 As Double
Dim dE As Double
 
'sHlp() = Split(sIpAddr, ".")
 
Addr(0) = 192
Addr(1) = 168
Addr(2) = 1
Addr(3) = 242
 
'die nächsten Zeilen zum Testen des Überlauf Fehlers
d1 = Addr(3) * CDbl(2 ^ 24) 
d2 = Addr(2) * CDbl(2 ^ 16)
'Hier tritt dann der Überlauf auf - obwohl alles Double Werte sind.
dE = d1 Or d2
 
 
'So soll die ganze Berechnung eigenltich aussehen
lHlp = (CDbl(Addr(3)) * CDbl((2 ^ 24))) Or CDbl((Addr(2)) * CDbl((2 ^ 16))) Or _
  CDbl((Addr(1)) * CDbl((2 ^ 8))) Or CDbl(Addr(0))
 
IpAddressToLong = lHlp
 
End Function