' #### Klasse clsVariablen ####
Option Explicit
Public Test2 As Integer
' #########################
'
' #### TestFunktion ####
Function DeleteVariables()
   Dim Vars As New clsVariablen
 
   Vars.Test2 = 3
   Debug.Print Vars.Test2
 
   CallByName Vars, "Test2", VbLet, 1
   Debug.Print Vars.Test2
 
End Function
'#########################

____________________________________