截取字符前面加如字符问题

Question

Dim istr As String
    Dim reg As Object
    Dim matchs As Object, match As Object    istr = Text1.Text
    Set reg = CreateObject("vbscript.regexp")
    reg.Global = True
    reg.IgnoreCase = True
    reg.Pattern = "/hrb_zufang/.*?.html"
    Set matchs = reg.Execute(istr)
    For Each match In matchs
        List1.AddItem match
    Next
现在截取了一些字符，如/hrb_zufang/57898689.html，想在这段字符前面加一段字符然后添加到list，效果如下
http://wap.58.com/hrb_zufang/57898689.html,也就是加入http://wap.58.com这一段该怎么写

Answer 1

...
Dim istr As String
  Dim reg As Object
  Dim matchs As Object, match As Object  istr = Text1.Text
  Set reg = CreateObject("vbscript.regexp")
  reg.Global = True
  reg.IgnoreCase = True
  reg.Pattern = "/hrb_zufang/.*?.html"
  Set matchs = reg.Execute(istr)
  For Each match In matchs
  List1.AddItem "http://wap.58.com" & match
  Next