Gutes neues Jahr + Zufallszahlen

ich wünsche allen ein gutes neues 2003.

Ich erzeuge mit folgendem Makro Zufallszahlen, was auch funktioniert.
Jedoch habe ich das Problem das bei jedem neuen Start immer die gleiche Reihenfolge der Zahlen auftritt. Hilfe ?

Private Sub CB2_Click()
Label9.Caption = ""
TB1 = ""
z2 = Int(Rnd * 80)
z3 = Int(Rnd * 80)
While z3 < z2
z3 = Int(Rnd * 80)
Wend
zahl2.Caption = z2
zahl3.Caption = z3

End Sub