Basic - ayuda con texto grafico

Necesito el codigo o la manera de conseguir la longitud en "pixeles" de una palabra cualquiera.

Yo utilizo esto, no si hay algo mejor.

With Printer
.Orientation = vbPRORPortrait
.FontName = "courier new"
.FontSize = 12
.FontBold = False
End With

Wi = Printer.TextWidth("Palabra")
He = Printer.TextHeight("Palabra")