Узнать ширину текста - VB

Формулировка задачи:

Как узнать ширину, которую будет занимать текст написаный, скажем, шрифтом Tohama, 8 пт.?
Программно. Желательно без записывания строки в пустую ячейку и т.д.
Спасибо.

Решение задачи: «Узнать ширину текста»

textual
                            Листинг программы 
                        

                            <font color="blue">Private</font> <font color="blue">Declare</font> <font color="blue">Function</font> GetActiveWindow Lib <font color="teal">"user32"</font> () <font color="blue">As</font> <font color="blue">Long</font>
<font color="blue">Private</font> <font color="blue">Declare</font> <font color="blue">Function</font> GetWindowDC Lib <font color="teal">"user32"</font> (<font color="blue">ByVal</font> hWnd <font color="blue">As</font> <font color="blue">Long</font>) <font color="blue">As</font> <font color="blue">Long</font>
<font color="blue">Private</font> <font color="blue">Declare</font> <font color="blue">Function</font> ReleaseDC Lib <font color="teal">"user32"</font> (<font color="blue">ByVal</font> hWnd <font color="blue">As</font> <font color="blue">Long</font>, <font color="blue">ByVal</font> hDC <font color="blue">As</font> <font color="blue">Long</font>) <font color="blue">As</font> <font color="blue">Long</font>
<font color="blue">Public</font> hDC <font color="blue">As</font> <font color="blue">Long</font>
<font color="blue">Public</font> hWnd <font color="blue">As</font> <font color="blue">Long</font>
<font color="blue">Private</font> <font color="blue">Sub</font> UserForm_Activate()
    hWnd = GetActiveWindow()
    hDC = GetWindowDC(hWnd)
    MsgBox Hex(hWnd)
    MsgBox Hex(hDC)
    ReleaseDC hWnd, hDC
<font color="blue">End</font> <font color="blue">Sub</font>

                        