Private Declare Function inet_ntoa Lib "wsock32.dll" (ByVal addr As Long) As Long
Private Declare Function inet_addr Lib "wsock32.dll" (ByVal s As String) As Long
Private Declare Function lstrcpyA Lib "kernel32" (ByVal RetVal As String, ByVal Ptr As Long) As Long
Private Declare Function lstrlenA Lib "kernel32" (ByVal Ptr As Any) As Long
'
'
' * ** ** * ** ** * ** **
' Returns the IP Address of a given numerical address
' * ** ** * ** ** * ** **
Public Function GetIPFromAddress(Address As Long) As String
    Dim ptrString As Long
    ptrString = inet_ntoa(Address)
    GetIPFromAddress = GetStrFromPtrA(ptrString)
End Function
'
'
' * ** ** * ** ** * ** **
' Returns the string from the location PtrA
' * ** ** * ** ** * ** **
Public Function GetStrFromPtrA(ByVal lpszA As Long) As String
    GetStrFromPtrA = String$(lstrlenA(ByVal lpszA), 0)
    Call lstrcpyA(ByVal GetStrFromPtrA, ByVal lpszA)
End Function
'
'
' * ** ** * ** ** * ** **
Private Sub Command1_Click()
   Dim nIp As Long
    sIp = "192.68.122.94"
    nIp = inet_addr(sIp)
    
    'long Numreic IP
    MsgBox nIp
    
    'Normal IP
    MsgBox GetIPFromAddress(nIp)
End Sub
'=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=