Here's my (commented) approach to your solution:

Sub PrintPages()
'
Dim vPgNums As Variant, sPgNums As String, n As Long

'Get the values from the user
sPgNums = InputBox("Enter up to 5 page nbr's to print, seperated by
a comma(ie: 1,5,9,14,21)", "Enter Page Nbrs")

''''''''''''''''''''''''''''''''''''''''''''
'This block isn't necessary because printout
'will only happen if user entered page numbers.

'**Also, I don't get why you add an empty
'string to the variable before testing its length**
' If Len(sPgNums & "") = 0 Then
' Exit Sub
' Else
''''''''''''''''''''''''''''''''''''''''''''
'Make sure user didn't cancel
If Len(sPgNums) 0 Then
'create an array of the values entered
vPgNums = Split(sPgNums, ",")

'get each page nbr and print it
For n = LBound(vPgNums) To UBound(vPgNums)
ActiveWindow.SelectedSheets.PrintOut From:=vPgNums(n),
To:=vPgNums(n), Copies:=1
Next 'n
End If

End Sub

Note that you could also pass sPgNums as the 'Pages' parameter

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion