Public Sub maask()
Public Sub maask()
Dim Add1 As String
Dim Add2 As String
Dim IP As Long
Dim y As String


IPl4 = 5
IPl3 = 142
IPl2 = 18
IPl1 = 0

IPh4 = 5
IPh3 = 142
IPh2 = 145
IPh1 = 255

Add1 = Bin(IPl3) & Bin(IPl2) & Bin(IPl1)
Add2 = Bin(IPh3) & Bin(IPh2) & Bin(IPh1)
Dec1 = Bin2Dec(Add1)
Dec2 = Bin2Dec(Add2)
IP = Dec1
x = 1

Do While IP <= Dec2
    y = Bin(IP)
            If Right(y, x) = 0 Then
            Do While Right(y, x) = 0
            x = x + 1
            Loop
            Else
            n = x
            End If
            n = x - 1
    IP = Bin2Dec(y)
    If IP + 2 ^ (n - 1) > Dec2 Then
        n = n - 1
    Else
    End If
      
    IP = IP + (2 ^ n)
    Debug.Print (32 - n)
Loop

End Sub

Do While IP + 2 ^ (n - 1) > Dec2
n = n - 1
Loop