seems like you can shorten that code a lot
Private Sub UserForm_Initialize()
   Dim n as long
    OrderNumber.Value = Sheets("Customer Information").Range("E5").Value
    ' adjust the counter to however many you need
    for n = 1 to 21
       me.controls("f" & n).Value = Sheets("PSTN").Range("A" & n + 19).Value
       me.controls("feature" & n).value = (me.controls("f" & n).Value = "Yes")
    next n
end sub