Excel VBA

Sub StrToOption(Byval OptionName,Byval Field,Byval Value,Byval DefaultValue)
   '將文字字串變成下接式選單
   Response.write "<select size='1' name='" & OptionName & "' ID='" & OptionName & "'>"
   mField=split(Field,",")
   mValue=split(value,",")
   DefaultValue=DefaultValue & ""
   For i=0 to ubound(mField)
      if mValue(i)=DefaultValue then
         response.write "<option selected value=" & mValue(i) & ">" & mField(i) & "</option>"
      else
         response.write "<option value=" & mValue(i) & ">" & mField(i) & "</option>"
      end if
      Next
      Response.write "</select>"
End sub