Setting font for a Textbox/Listbox with macro

How do you set the font for a textbox and or listbox?

I have tried:

ListBox1.font = "IMS"
TextBox1.font = "IMS"

and

With ListBox1
.Font.Name = "IMS"
end with

(Same with textbox)
Neither work.

IMS is a special GD&T font.

Any hints, tips or examples are appreciated.