perchè hai dichiarato un oggetto del tipo class1

Dim spese As Class1

ma non l'hai ancora istanziato

dovresti mettere anche

set spese = new class1

in questa maniera spese diventa una nuova istanza della classe class1 oppure se fai riferimento ad una istanza precedente

set spese = altra istanza

solo dopo aver istanziato l'oggetto puoi accedere alla sua interfaccia pubblica