For Loop Combo Boxes with If Statement

Thanks very much, perfect

Expanding on the Sub CheckCombo, would there be a formula to add all the "mia" boxes" values and all the "moa" boxes, currently I have:
(tmi is another textbox in the userform for sum of all the mia combobox values, tmo is for all moa values)

    

tmi.Value = Val(mia1.Value) + Val(mia2.Value) + Val(mia3.Value) + Val(mia4.Value) + Val(mia5.Value) + Val(mia6.Value) + Val(mia7.Value) + Val(mia8.Value) + Val(mia9.Value) + Val(mia10.Value) + Val(mia11.Value) + Val(mia12.Value) + Val(mia13.Value) + Val(mia14.Value) + Val(mia15.Value) + Val(mia16.Value) + Val(mia17.Value) + Val(mia18.Value)

tmi.Value = Format$(tmi.Value, "0.00")

tmo.Value = Val(moa1.Value) + Val(moa2.Value) + Val(moa3.Value) + Val(moa4.Value) + Val(moa5.Value) + Val(moa6.Value) + Val(moa7.Value) + Val(moa8.Value) + Val(moa9.Value) + Val(moa10.Value) + Val(moa11.Value) + Val(moa12.Value) + Val(moa13.Value) + Val(moa14.Value) + Val(moa15.Value) + Val(moa16.Value) + Val(moa17.Value) + Val(moa18.Value)

tmo.Value = Format$(tmo.Value, "0.00")

I am thinking there is probably something much shorter