Restrict user response for InputBox

[maxwell13]

Hi All

I would like to restrict user response in a Input Box to a specific format of the below examples.

12.34.5678

11.27.9832

Basically 2 digits a period 2 digits a period and 4 digits.

Any help is greatly appreciated.

Thanks

 

[Akuini]

Try:

Sub tryInputbox()
Dim sVar As Variant

Do
    sVar = Application.InputBox("Insert... :", Title, Type:=2)
    
    If sVar = False Then Exit Sub  'if user cancel
        If Not sVar Like "##.##.####" Then
            MsgBox "Incorrect ... "
        Else
            'do something
            Exit Do
        End If

Loop While Not sVar Like "##.##.####"
            

End Sub

 

[maxwell13]

Thank you Akuini for your prompt reply. That looks like it will do exactly as i needed.

I will test it out and let you know how i go

​

​