Ошибка переполнения VB6 с большими целыми числами

Я пытаюсь установить целочисленное значение как таковое:

Dim intID as integer
intID = x * 10000

Это работает нормально, когда x 3 или меньше. Но когда x равно 4, это дает мне ошибку:

ошибка времени выполнения 6 Переполнение

Я не понимаю, почему это так. Я могу установить intID на 40000 напрямую без каких-либо проблем, так что он, очевидно, способен хранить большие числа.