Hallo Dunuin,
der Fehler muss an etwas anderem liegen. Das hier kmpiliert einwandfrei und rechnet auch richtig:

Dim Restzeit As Integer
Dim Spielzeit As Word , Seccounter As Word
Spielzeit = 100
Seccounter = 10000
Restzeit = Spielzeit - Seccounter 'Restzeit = -9900