Función CBool

Convierte una comparación de cadenas o numérica en una expresión lógica o convierte una expresión numérica simple en una de tipo lógico.

Sintaxis:

CBool (Expresión1 {= | <> | < | > | <= | >=} Expresión2) o CBool (Número)

Valor de retorno:

Lógico

Parámetros:

Expresión1, Expresión2: Cualquier cadena o expresión numérica que desee comparar. Si las expresiones coinciden, la función CBool devuelve el valor True, en caso contrario devuelve False.

Número: Cualquier expresión numérica que desee convertir. Si la expresión es igual a 0 devuelve False, en caso contrario devuelve True.

El ejemplo siguiente usa la función CBool para evaluar el valor que devuelve la función Instr. La función comprueba si la palabra "y" se halla en la frase que introdujo el usuario.

Ejemplo:

Sub ExampleCBool

Dim sText As String

    sTexto = InputBox("Escriba una frase breve:")

    ' Comprueba que la palabra «y» aparece en la oración.

    ' En vez de la línea de órdenes

    ' If Instr(Input, "y")<>0 Then...

    ' la función CBool se aplica de la forma siguiente:

    If CBool(Instr(sTexto, "y")) Then

        MsgBox "La palabra «y» aparece en la frase que acaba de escribir."

    EndIf

End Sub