CBool(expresión)
Devuelve una expresión que se ha convertido en tipo Variant de subtipo Boolean.
El argumento expresión es cualquier expresión válida.
Ejemplo:
Sub prueba()
Dim sText As String
sText = InputBox("Entre su nombre completo:")
If CBool(InStr(sText, "cruz")) Then
MsgBox "El apellido ;cruz+ aparece en el nombre entrado"
End If
End Sub
Elaborado por: Maria Cruz
04/11/2012 a las 10:55 pm
Una sugerencia para mejorar el ejemplo, sería implementando la función LCase al texto, si ingresamor el Texto cruz en Mayúsculas no hay coincidencia y no hay resultado, también agregue un else con un mensaje con un texto adecuado:
Sub FuncionCbool()
Dim sText As String
sText = InputBox("Ingrese su nombre completo:")
sText = LCase(sText)
If CBool(InStr(sText, "cruz")) Then
MsgBox "El apellido (cruz) aparece en el nombre ingresado"
Else
MsgBox "Texto No encontrado"
End If
End Sub
23/03/2013 a las 11:27 pm
se ha mejorado el ejemplo; sin embargo, debemos tener en cuenta que la funcion Cbool considera lo siguiente:
Tipo de datos que sólo tiene dos valores posibles, True (-1) o False (0). Las variables Boolean se almacenan como números de 16 bits (2 bytes).
fuente: ayuda excel microsoft visual basic