Dialog box for adding printers

I'm just trying to create a script which I'm not 100% sure if it will work with VBS.  There is already a script in place which selects their default printer depending on a user group but for some I need to enhance this to enable them to make a selection.

So far I have the following

On Error Resume Next
 
 strMenu="Select an office" & VbCrLf &_
 "1 Office1"  & VbCrLf &_
 "2 Office2" & VbCrLf &_
 "3 Office3" & VbCrLf &_
 "4 Office4"
 
 rc=InputBox(strMenu,"Menu",1)
 If IsNumeric(rc) Then
     Select Case rc
        Case 1 
             WScript.Echo "Office1"
        Case 2
             WScript.Echo "Office2"
        Case 3
             WScript.Echo "Office3"
Case 4
             WScript.Echo "Office4"

         Case Else
             wscript.echo "That's not on the menu."
     End Select
     Else
     WScript.Echo "Invalid option. Numbers only."
 End If

It works, and I'll amend the echo's to set the default but it would be nice if I could get radio buttons or something to make it look a bit prettier.

Anybody got any ideas please?