Getting User Input in a Dialog Box

Just a passing note: I like to use Named arguments to help me remember in these cases what the arguments are
For the above example this would be, for the first three
(Prompt:= sPrompt, Title:= sTitle, Default:= sDefault)
( The full list is given here: msdn.microsoft.com/en-us/library/office/gg251811.aspx )

A characteristic of this is that for named arguments they may be in any order, such that, for example with the above example , if the Title was to be omitted, then
_ for named arguments we could use this syntax:
(Prompt:= sPrompt, Default:= sDefault) or (Default:= sDefault, Prompt:= sPrompt)
but
_ for unnamed arguments the order must be maintained, with place holders included as necessary for any missing arguments in between.
So for this example it would be
(sPrompt, , sDefault)

( Missing arguments must be omitted at the end - This , ) would cause an error as , , is needed, I think, to be recognised as a place holder. With no following , the arguments are taken as complete, ( assuming any missing are optional ) )

The input box works well, but does not return the input string to the document.

Hi!
I have a small sub here (take a line and shows it in every available font), which i took somewhere from MS site, it works fine, exept i would like it to ask line i need to show, so i used method u describe here, and when i try to change .TypeText "Suum Cuique" to .TypeText sTexttoDisplay
it start to show much less fonts then w just a text. What possibly can be the issue? Thx in advance :)

Sub ListFonts()

Dim varFont As Variant
' Speeds macro processing and suppresses display.
'Application.ScreenUpdating = False
' Create new document.
Documents.Add Template:="normal"
'Asking for text to show in different fonts
sPrompt = "Enter text to display in different fonts"
sTitle = "Enter Text"
sDefault = "default text"
sTexttoDisplay = InputBox(sPrompt, sTitle, sDefault)

' Loop through each available font.
For Each varFont In FontNames
With Selection
' Format for name of font.
'.Font.Name = "times new roman"
'.Font.Bold = True
'.Font.Underline = True
' Insert Font name.
'.TypeText varFont
' Insert a new paragraph after the Font Name.
'.InsertParagraphAfter
' Move to the new paragraph.
.MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
' Format for the font example.
.Font.Bold = False
.Font.Underline = False
.Font.Name = varFont
.Font.Size = 48
' Enter example text(Alphabetic characters.)
.TypeText "Suum Cuique" 'sTexttoDisplay
' Insert a new paragraph.
.InsertParagraphAfter
' Move to the new paragraph.
'.MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
' Insert example text(Numeric characters.)
'.TypeText "0123456789?$%&()[]*_-=+/<>"
' Insert two new paragraphs and move down.
'.InsertParagraphAfter
'.InsertParagraphAfter
.MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
End With

Next varFont
Application.ScreenUpdating = True

End Sub

What I'm looking for is a method of using content controls and storing the text string value of the control on exit to a bookmark to be referenced within the document (headers, footers, etc.)

Is this possible?