Get user input

[ccpsc]

In the code below I need user input for the line "Do Until x = (User input as integer)". How do I do this?

Sub InsertRow()
'
' InsertRow Macro
'
' Keyboard Shortcut: Ctrl+x
'
Dim x As Long
x = 1
Do Until x = 100
Selection.EntireRow.Insert
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.Offset(2, 0).Select
x = x + 1
Loop
End Sub