Excel InputBox

[Biz]

Dear All,
I have boolean input box as I want code to only allow 0,1, True, False input only.
If nothing entered then Msgbox "Please try again" should appear.

Sub Tests()
     '// Vars
1    Dim blnAns As Boolean
      
      '// Boolean prompt, 1 = true, 0 = false
2    blnAns = Application.inputbox(Prompt:="Do you want filter a particular item?" & vbCr & _
      "1 = True, 0 = False", Title:="Filter List", Type:=4)

   If StrPtr(blnAns) = 0 Then
   MsgBox ("Cancel pressed!")
    Exit Sub
   End If
      '~~> Check only 1 / True 0 / False as between entered
      If Application.Sum((blnAns >= 0 And blnAns <= 1), (blnAns = "True" Or blnAns = "False")) > 0 Then
              MsgBox "You have responded within range allowed :" & blnAns, vbInformation
          Else
              MsgBox "Please try again", vbCritical
              Exit Sub
          End If
End Sub

Your help would be greatly appreciated.

Biz

 

[Biz]

Nope, try again!

Hi Johnny,
Not sure what code you want me to try with what variable?
Biz

 

[Biz]

Hi Johnny.

I managed to make code below work. Thank you all for your help.

Sub Tests_Works_Test()
1     Dim blnAns As Variant
      
      '~~> Get User Input
2     blnAns = Application.inputbox(Prompt:="Do you want filter a particular item?" & vbCr & _
       "1 = True, 0 = False", Title:="Filter List", Type:=6)
      
      '~~> The checks if input is blank with "Cancel" or "Ok" is clicked.
3     If (VarType(blnAns) = vbBoolean) Or blnAns = vbNullString Then
4         MsgBox "Sorry, but you cannot continue", vbCritical
          '~~> Checks if inputs are within allowed range.
5     ElseIf Not Application.Sum((blnAns >= 0 And blnAns <= 1), (blnAns = "True" Or blnAns = "False")) > 0 Then
6         MsgBox "Please try again", vbCritical
7         Exit Sub
8     Else
9         MsgBox "You have responded within range allowed :" & blnAns, vbInformation
10    End If
End Sub

Kind Regards

Biz