Как проверить, что в строке заданы только цифры и символы ';'?

Цифры должны быть обязательно, хоть одна, а символ не обязателен.
Как правильно написать pattern, что бы проверить, что в поле введены цифры, разделенные ';'

Set objRegExp = CreateObject("VBScript.RegExp")
  
objRegExp.Pattern = "[0-9]"   ' <<<< ????????
str = "1;23;353;5;666;1237;8;9;0"
MsgBox objRegExp.Test(str)

Спасибо.
Поиск пользовал, но я в регулярных совсем не силен.

https://www.sql.ru/forum/1306397/pomogite-s-regexp