If Std_e >= 4 Then
If Std_z = 2 Then
Std_e = 0
Std_z = 0
For X = 0 To 10
S_std_e(x) = 1
Next X
For X = 0 To 3
S_std_z(x) = 1
Next X
Set S_std_z
End If
End If

Wofür verwendest Du Set S_std_z? Das ist der einzige Befehl, der mir etwas spanisch vorkommt.

Weiter würde ich in der Initialisierung die Werte für Sec_e, Sec_z ... gleich 0 setzen. Bei den meisten Werten ist das zwar egal, weil spätestens nach dem 2. Durchlauf Dein Programm die Werte richtig gesetzt hat, aber gerade bei Std_z spielt es eine große Rolle, wenn durch Zufall Std_z größer 2 ist, dann wird ein ganzer Programmteil nie ausgeführt, die Stunden zählen von 0 bis 9 durch und bei den Zehnern tut sich nichts.

Mit diesen Änderungen müsste Dein Programm funktionieren.