Replace字符替换

数据源
  Dim MshFlexGridHead
  MshFlexGridHead = Array("公称压力", "公称直径", "钢管外径A", "钢管外径B", _
  "法兰外径D", "孔中心圆直径", "螺栓孔直径", "螺栓数量", "螺纹规格", "法兰厚度", _
  "法兰内径NA", "法兰内径NB", "坡口宽度", "理论重量", "突台外径d", "突台高f1", _
  "配对法兰螺栓", "螺栓重量", "合计", "法兰盖螺栓", "螺栓重量", "合计")
要替换数据源
  -法兰厚度+配对法兰螺栓
程序编制的目标要求是
-法兰厚度---用----(-.TextMatrix(.Row,9)+)替换
-配对法兰螺栓---用----(-.TextMatrix(.Row,16)+)替换以下程序替换结果
-.TextMatrix(.Row,9)+配对法兰螺栓  
红色部分没有按要求替换
  Dim MshFlexGridHead
  MshFlexGridHead = Array("公称压力", "公称直径", "钢管外径A", "钢管外径B", _
  "法兰外径D", "孔中心圆直径", "螺栓孔直径", "螺栓数量", "螺纹规格", "法兰厚度", _
  "法兰内径NA", "法兰内径NB", "坡口宽度", "理论重量", "突台外径d", "突台高f1", _
  "配对法兰螺栓", "螺栓重量", "合计", "法兰盖螺栓", "螺栓重量", "合计")  dd = "-法兰厚度 + 配对法兰螺栓"
  For kk = 0 To UBound(MshFlexGridHead)
    If InStr(dd, MshFlexGridHead(kk)) > 0 Then
      Debug.Print Replace(dd, MshFlexGridHead(kk), ".TextMatrix(.Row," & kk & ")", , , vbTextCompare)
    End If
  Next kk
程序设计思想是对每个MshFlexGridHead数组的元素进行比较,而在实际操作过程中,只对一个进行了Instr操作.请各位大侠指教.