excel VBA, How to create a IP address format standard on textbox userform

[Djamel_]

Dear Expert,

I need to create on the excel VBA an userform that have a textbox that I can enter IP addresse standard format.

Thanks in advance

 

[Domenic]

The following code will validate the IP address once the user clicks on the CommandButton. If the IP address is not valid, the code sets focus to the TextBox and highlights the text so that the user can correct it. You'll need to change the name of the TextBox and CommandButton accordingly. Here's the code, which needs to be placed in the UserForm code module...

Private Sub CommandButton1_Click()

    If Not is_valid_ip(Me.TextBox1.Value) Then
        With Me.TextBox1
            .SetFocus
            .SelStart = 0
            .SelLength = Len(.Value)
        End With
    End If
    
    'etc
    '
    '
    
End Sub

Private Function is_valid_ip(ByVal ip As String) As Boolean

' IP address must be made up of 4 segments and in the format x.x.x.x
' the first segment (ie. X.x.x.x) cannot be 000
' each segment must be within [0,255]

    Dim octets As Variant
    Dim i As Long
    
    octets = Split(ip, ".")
    
    If UBound(octets) <> 3 Then
        is_valid_ip = False
        Exit Function
    End If
    
    If octets(0) = 0 Then
        is_valid_ip = False
        Exit Function
    End If
    
    For i = LBound(octets) To UBound(octets)
        If octets(i) < 0 Or octets(i) > 255 Then
            is_valid_ip = False
            Exit Function
        End If
    Next i
    
    is_valid_ip = True

End Function

Hope this helps!