Streamline InputBox

    valid = False
    Do Until valid = True
    cpt1 = Application.InputBox(prompt:="Enter the First CPT Code", Title:="CPT #1", Left:=300, Top:=250, Type:=1)
            If cpt1 <> Empty And cpt1 <> "False" Then
            valid = True
        End If
    Loop
    
    valid = False
    Do Until valid = True
    cpt2 = Application.InputBox(prompt:="Enter the Second CPT Code", Title:="CPT #2", Left:=300, Top:=250, Type:=1)
            If cpt2 <> Empty And cpt2 <> "False" Then
            valid = True
        End If
    Loop
    
    valid = False
    Do Until valid = True
    cpt3 = Application.InputBox(prompt:="Enter the Third CPT Code", Title:="CPT #3", Left:=300, Top:=250, Type:=1)
            If cpt3 <> Empty And cpt3 <> "False" Then
            valid = True
        End If
    Loop
    
    valid = False
    Do Until valid = True
    cpt4 = Application.InputBox(prompt:="Enter the Fourth CPT Code", Title:="CPT #4", Left:=300, Top:=250, Type:=1)
            If cpt4 <> Empty And cpt4 <> "False" Then
            valid = True
        End If
    Loop
    
    valid = False
    Do Until valid = True
    cpt5 = Application.InputBox(prompt:="Enter the Fifth CPT Code", Title:="CPT #5", Left:=300, Top:=250, Type:=1)
            If cpt5 <> Empty And cpt5 <> "False" Then
            valid = True
        End If
    Loop

Ideally, I'd like to have this code streamlined. There will be a min of 1 and max of 5. Rather, not have the user input data unnecessarily. Maybe have an Inputbox where the user says how many values need to be entered...