Das hier

Dim Restzeit As Integer
Dim Seccounter As Word
Const Spielzeit = 100
Seccounter = 10000
Restzeit = Spielzeit - Seccounter

kompiliert er bei mir auch ohne Fehler und rechnet richtig.