Para crear una clase, utilice la sentencia Class, que tiene la siguiente sintaxis.
Sintaxis
BSL classes are enclosed within Class .... End Class
'Defining the Class
Class classname 'Declare the object name
End Class
Instantiation of the Class
Set objectname = new classname