The best choice would be to create a userform where you can design an interface to give the users the best experience.
The simplest coding choice is to use an InputBox and tell them what to enter via a key
Code:
Sub PickOne()
Dim iResp As Integer, sMsg As String
sMsg = "Selected Pictures:" & vbCr & " Type 1 for 90 degrees" & vbCr & _
" Type 2 for 180 degrees" & vbCr & " Type 3 for -90 degrees" & vbCr & vbCr & _
"All Pictures:" & vbCr & " Type 4 for 90 degrees" & vbCr & _
" Type 5 for 180 degrees" & vbCr & " Type 6 for -90 degrees"
iResp = InputBox(sMsg, "Make a Selection", "1")
Debug.Print iResp
End Sub