KC106:28=???DH162:64=??ML008:18=??

For A = 1 to 9
for b = 0 to 9
if (A*10000+b*1000+254)/73 = xxx then 'здесь условие которое вы не написали
msgbox(A*10000+b*1000+254)
endif
end sub

Мону поведать про заключительнее.
ml007:18 = четырехзначное число.
18 = 29,
Значит, разделяемое обязано быть четным ( а оно и есть четное, так как кончается на четное число) и обязано делиться на 9.
Признак делимости на 9: сумма цифр, из которых состоит число обязано делиться на 9.
m+l+8 обязано делиться на 9
К примеру, если m=2, l=8,
То делимое равно 28008
28008:18 = 1556
Дальше варьируем m и l, чтоб в сумме вышло 10:
37008:18 = 2055
46008:18 = 2556
55008:18 = 3056
64008:18= 3556
73008:18= 4056
82008:18= 4556
91008:18 = 5056