Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Creating a User-Defined Error

Sub TestCustomError()    On Error GoTo TestCustomError_Err    Dim strName As String    strName = "aa"    If Len(strName) < 5 Then       Err.Raise number:=11111, _                Description:="Length of Name is Too Short"    Else      msgBox "You Entered " & strName    End If    Exit Sub TestCustomError_Err:     'Display a message with the error number     'and description     msgBox "Error # " & Err.number & _         " - " & Err.Description     Exit Sub End Sub