CBool Function

CBool (Expression1 {= | <> | < | > | <= | >=} Expression2) 또는 CBool (Number)

Sub ExampleCBool

Dim sText As String

    sText = InputBox("Please enter a short sentence:")

    REM Proof(»and«가 문장에 나타나는 경우)

    REM Instead of the command line

    REM If Instr(Input, "and")<>0 Then...

    REM the CBool function is applied as follows:

    If CBool(Instr(sText, "and")) Then

        MsgBox "The word »and« appears in the sentence you entered!"

    EndIf

End Sub