Intentional Error on Boolean

[mmoeller]

I'm using an "isInteger" function to test and input. The isInteger function returns a boolean response. If this response is FALSE I would like the Try,Catch,Finally function I'm using to CATCH it. How do I intentionally create and error catch on a boolean FALSE.


<code>
Private Sub TextBox1_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Validated
Try
Dim aNumber As String = CStr(TextBox1.Text)
Dim text As Boolean = isInteger(aNumber)
MsgBox("You Entered " & aNumber)
If text = False Then
INSERT ERROR HERE
End If

Catch
MsgBox("Please enter an Integer.")
Me.TextBox1.Focus()
Me.TextBox1.Select(Me.TextBox1.Text.Length, 1)
Finally
End Try
End Sub
Function isInteger(ByVal strVal As String) As Boolean

'if not numeric or decimal point found
If Not IsNumeric(strVal) Or InStr(strVal, ".") Then
isInteger = False
Else
isInteger = True
End If
End Function

[Tig201]

if you are intrested in any error you could do something like this

dim bool as boolean
bool = "two"

this should produce a Type Mismatch error

[mmoeller]

Thanks. I did something similar.