Set Zoom Level Input Box

Hi All, how do i create in input box to select zoom level for this code. If anyone has a second and can help I woudl be very greatfull.

Sub ZoomAll()
 
Dim ws As Worksheet
 Application.ScreenUpdating = False
   
For Each ws In Worksheets
 If InStr(ws.Name, "_") > 0 And ws.Visible = True Then
    
    
    ws.Activate
 
    ActiveWindow.Zoom = 55
 
End If
Next ws

End Sub