Private Type tLong
    lLong As Long
End Type

Private Type tByteWord
    b0 As Byte: b1 As Byte: b2 As Byte: b3 As Byte
End Type

Private Function inet_ntoa_(ByVal inn As Long) As String
    Dim tb As tByteWord
    Dim tl As tLong
    tl.lLong = inn
    LSet tb = tl
    inet_ntoa_ = tb.b0 & "." & tb.b1 & "." & tb.b2 & "." & tb.b3
End Function

Private Function inet_addr_(ByVal cp As String) As Long
    Dim svData()    As String
    Dim i           As Long
    svData = Split(cp, ".")
    inet_addr_ = "&h" & Padd2(svData(3)) & Padd2(svData(2)) & Padd2(svData(1)) & Padd2(svData(0))
End Function

Private Function htons_(ByVal hostshort As Long) As Integer
    Dim tb As tByteWord
    Dim tl As tLong
    tl.lLong = hostshort
    LSet tb = tl
    htons_ = "&h" & Padd2(tb.b0) & Padd2(tb.b1)
End Function

Private Function Padd2(bData As Variant) As String
    Padd2 = Right$("0" & Hex(bData), 2)
End Function

Private Function CheckPrimality(ByVal lNum As Long) As Boolean
    Dim i       As Long

    If lNum < 10 Then
        If lNum = 2 Then CheckPrimality = True: Exit Function
        If lNum = 5 Then CheckPrimality = True: Exit Function
        If lNum = 1 Then Exit Function
    End If
    
    If Not (lNum And 1) = 1 Then Exit Function
    If (lNum And 5) = 5 Then Exit Function
    For i = 3 To Sqr(lNum) Step 2
        If lNum Mod i = 0 Then Exit Function
    Next
    CheckPrimality = True
End Function

Private Function CheckPrimality(ByVal lNum As Long) As Boolean
    Dim i       As Long
    Dim lSqr    As Long
        
    If lNum Mod 2 = 0 Then GoTo Composite:

    lSqr = Sqr(lNum)

    i = 3
    Do Until i > lSqr
        If lNum Mod i = 0 Then GoTo Composite:
        i = i + 2
    Loop
    
Prime:
    CheckPrimality = True
    Exit Function
Composite:
    If lNum = 2 Then CheckPrimality = True
End Function