Private Declare Function inet_addr Lib "wsock32.dll" (ByVal addr As String) As Long
Private Declare Function inet_ntoa Lib "wsock32.dll" (ByVal addr As Long) As Long
Private Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (ByVal lpString1 As String, ByVal lpString2 As Long) As Long
'Transforme une IP en long
Dim i As Long
i = inet_addr("127.0.0.1")
Debug.Print i
'Transforme un long en IP
Dim p As String * 32
lstrcpy p, inet_ntoa(i)
Debug.Print p