CAD里改VB

Dim aEnt As AcadEntity
  Dim sOld As String
  Dim sNew As String
  '<1>加前缀<2>加后缀<3>字符替换
  Dim sPstr As String '前缀
  Dim sEstr As String '后缀
  Dim sFind, sReplace As String
  Dim sOp As String
  
  sFind = ""
  sReplace = ""
  sPstr = ""
  sEstr = ""
  
  我想实现第一步:C替换
第二步:232424替换
第三步:前缀加3534663V