Private Type Zahlen
   zahl1 As Integer
   zahl2 As Integer
   zahl3 As Integer
   zahl4 As Integer
   '.........
End Type
 
Dim nullzahl As Zahlen
 
Private Sub Form_Load()
 
   Dim X As Zahlen
    X.zahl1 = 100
    X.zahl2 = 200
    X.zahl3 = 400
    X.zahl4 = 500
 
    X = nullzahl 'Hier werden alle Elemente der Type-Variable wieder zu 0
 
End Sub