Variabler ændre sig, af sig selv

Hvad er der galt med følgende ??

Hver gang "Command2_Click()" køres, sættes variablerne til "Empty"  - Hvorfor gør de det ?? er det forkert deklarering af samme, eller hvad?

hjææælp :-)



Private Sub Form_Load()
Dim Var1, var2
End Sub

Private Sub Command2_Click()
    If Var1 = Empty Then
        Var1 = 1
        var2 = True
    End If
    If Var1 >= 4 Then
        Var1 = 1
    Else
        Var1 = Var1 + 1
    End If
    Set Image1.Picture = ImageList1.ListImages(Var1).Picture
End Sub