Para criar uma classe, use a instrução Class, que tem a seguinte sintaxe.
Sintaxe
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