Sub WelcomePageButton_Click (event As BANanoEvent)
Log(IsCheckOk("ab")) 'Return ab
Log(IsCheckOk("cd")) 'Return ab
Log(IsCheckOk("de")) 'Return ab
End Sub
Sub IsCheckOk(MyValue As String) As Boolean
Dim MyCheck As Boolean = (MyValue = "ab") Or (MyValue = "cd")
Return MyCheck
End Sub