Hi Ryan

As I see it you will have to use Else statements unless you can
set .Illuminated = 0 .Mounted = 0 at the beginning of the Sub.

Hopes it helps.

Regards,
Per

On 19 Nov., 20:35, RyanH wrote:
I have a UDT that is used by a userform to calculate the price of a product. *
Is there a way to reset the UDT? *For example, you can reset an object with
Set Object = Nothing, or reset a variable with Variable = Empty.

The problem occurs when I fill out the userform, set Checkbox1 = True, and
click my CommandButton1 below, a price calculates and the userform remains
open. *But if I set Checkbox1 = False then click the buttton, the price
remains the same. *The price should be $300 less. *This is why I need to
reset the UDT. *I have alot of If...Then statements and I would prefer not to
do Else .Illuminated = 0 .Mounted = 0.

'in standard module
Type Sign
* *Height As Double
* *Width As Double
* *Illuminated As Currency
* *Mounted As Currency
End Type

' userform code
Option Explicit
Base Option 1

Dim TEST As Sign

Sub CommandButtton1_Click()

* *With TEST
* * * .Height = textbox1
* * * .Width = textbox2
* * * If Checkbox1 = True Then
* * * * *.Illuminated = 100
* * * * *.Mounted = 200
* * * End If
* *End With
End Sub
--
Cheers,
Ryan