QTP中可以代替单选框参数化的一段代码

Dim radioNum,indexArray
   radioNum =  Browser("Browser").Page("Page").Frame("dialog_workArea").WebRadioGroup(EmpobjName).GetROProperty("all items")
      IndexArray = Split(radioNum,";")
      If EmpinputValue = "有效" Then
       Browser("Browser").Page("Page").Frame("dialog_workArea").WebRadioGroup(EmpobjName).Select(IndexArray)
                        ElseIf EmpinputValue = "无效" Then
         
Browser("Browser").Page("Page").Frame("dialog_workArea").WebRadioGroup(EmpobjName).Select(IndexArray())
            End If