Sub feil med If then end if

Hva er feil med denne sub?

Det virker hvis jeg deler if setningen over 3 linjer

Sub SubBold(strInput)
Dim BoldList
    BoldList = BoldList & "<option value='100'" & If strInput = "100" then & " selected " End if & ">100</option>"
    'BoldList = BoldList & "<option value='200'" & If strInput = "200" then & " selected " End if & ">200</option>"
    'BoldList = BoldList & "<option value='300'" & If strInput = "300" then & " selected " End if & ">300</option>"
    'BoldList = BoldList & "<option value='normal'" & If strInput = "normal" then & " selected " End if & ">Normal</option>"
    'BoldList = BoldList & "<option value='500'" & If strInput = "500" then & " selected " End if & ">500</option>"
    'BoldList = BoldList & "<option value='600'" & If strInput = "600" then & " selected " End if & ">600</option>"
    'BoldList = BoldList & "<option value='bold'" & If strInput = "bold" then & " selected " End if & ">Fet</option>"
    'BoldList = BoldList & "<option value='800'" & If strInput = "800" then & " selected " End if & ">800</option>"
    'BoldList = BoldList & "<option value='900'" & If strInput = "900" then & " selected " End if & ">900</option>"
    Response.Write(BoldList)
End sub