Loop Input Box if Entry is Invalid

[temerson]

I am wanting to restrict the user entering into the inputbox to one of four answers.
If not, the inputbox will loop until one of four answers is given.

The answer would include both text and a number, a1, a2, b1 or b2. Would declaring the variable as a string be appropriate?

I figured I could do this by using Do While or Loop While but I have no idea where to edit my code.

sub VendorType
dim vendor as string

distro = InputBox("Vendor Type", "Vendor Distribution Type")

If distro = "A1" Then


Thank you in advance!

 

[DanteAmor]

Try this

Sub VendorType()
  Dim distro  As String
  Do While True
    distro = InputBox("Vendor Type (a1, a2, b1 or b2)", "Vendor Distribution Type")
    If StrPtr(distro) = 0 Then
      MsgBox "Click Cancel, exit now"
      Exit Sub
    ElseIf Len(distro) = 0 Then
      MsgBox "Please enter Type: a1, a2, b1 or b2"
    Else
      Select Case LCase(distro)
        Case "a1", "a2", "b1", "b2"
          Exit Do
        Case Else
          MsgBox "Please enter Type: a1, a2, b1 or b2"
      End Select
    End If
  Loop
  '
  '
  'continue your code
  '
  '
End Sub

 

[dmt32]

Hi,
try

Sub VendorType()
    Dim distro  As String, Prompt As String
    Dim arr As Variant, m As Variant
   
    arr = Array("a1", "a2", "b1", "b2")
    Prompt = "Enter Vendor Type" & Chr(10) & "A1, A2, B1 or B2 only"
    Do
        distro = InputBox(Prompt, "Vendor Distribution Type")
'cancel pressed
        If StrPtr(distro) = 0 Then Exit Sub
        m = Application.Match(distro, arr, 0)
        If Not IsError(m) Then Exit Do
        MsgBox Prompt, 48, "Invalid Entry"
    Loop
   
   
'rest of code e.g
    Select Case UCase(distro)
       
    Case "A1"
       
    Case "A2"
       
    Case "B1"
       
    Case "B2"
       
    End Select
   
   
End Sub

Dave

 

[temerson]

Sorry for the delayed response. These worked perfectly! Thank you!

 

[dmt32]

Sorry for the delayed response. These worked perfectly! Thank you!

No worry, glad we could help you - many thanks for feedback

Dave

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.