here is the solution
to tell the true chip was faster the idea is the same
in my opinion his ver is more reliable
I tecidet to post my ver 'cos it cost me a while so why not

try this

Sub test_3()
Dim a
On Error Resume Next
Set myCombo = Application.CommandBars
("Formatting").Controls(1)
a = InputBox("Type your text.", "Test with fonts by
Konrad", "type text here", 350, 350)
For i = 1 To myCombo.ListCount
ThisWorkbook.Sheets(2).Cells(i, 1) = a
ThisWorkbook.Sheets(2).Cells(i, 2) = myCombo.List(i)
ThisWorkbook.Sheets(2).Cells(i, 1).Font.Name = myCombo.List
(i)
Next i
End Sub