Excel VBA CVErr Function

VBA CVErr Function: The CVErr function in VBA returns an Error data type, involving with a user-specified error code.

Syntax

CVErr (Expression)

Parameter

Expression (required)- This parameter represents the required error code.

Return

This function returns an Error data type, involving with a user-specified error code.

Example 1

Sub CVErrFunction_Example1()
 Dim val1 As Integer, val2 As Integer
 val1 = 4
 val2 = 0
 If val2 = 0 Then
 ' Return Error data type for error code 11 .
     Div = CVErr(11)
     MsgBox (Div)
 ' Div will return run-time Error 13(represents division by zero).
 Else
 ' Perform the division.
     Div = val1 / val2
     MsgBox (Div)
 End If
 End Sub 

Output

Example 2

Sub CVErrFunction_Example2()
 Dim val1 As Integer, val2 As Integer
 val1 = 4
 val2 = 10
 If val2 = 0 Then
 ' Return Error data type for error code 11 .
     Div = CVErr(11)
     MsgBox (Div)
 ' Div will return run-time Error 13(represents division by zero).
 Else
 ' Perform the division.
     Div = val1 / val2
     MsgBox (Div)
 End If
 End Sub 

Output