While .Execute
      oRng.Select
      Select Case MsgBox("Do you want to show dual values?", vbYesNoCancel, "CREATE DUAL VALUE")
        Case vbYes
          Set oRngNums = oRng.Duplicate
          oRngNums.Collapse wdCollapseStart
          oRngNums.MoveStartWhile Cset:="1234567890 ", Count:=wdBackward
          strNums = Trim(oRngNums.Text)
          oRng.Text = arrEng(lngIndex) & " (" & CDbl(arrFactors(lngIndex)) * CDbl(strNums) & " " & arrMet(lngIndex) & ")"
          oRng.Collapse wdCollapseEnd
        Case vbNo
          oRng.Collapse wdCollapseEnd
        Case Else
          Exit Sub
      End Select
    Wend