置換

Private Function CreateRegRxp() As Object
    Set re = CreateObject("VBScript.RegExp")
    re.Pattern = "(.)"
    re.Global = True
    re.Pattern = "=RSS\|\'....\..{1,2}\'\!"
    's1 = "=RSS|'4653.Q'!現在値"
    'wk = re.Replace(s1, "RSS|'1234.T!")
    'MsgBox wk
    Set CreateRegRxp = re
End Function

Private Function MakeReplecement(ByVal code As String, ByVal market As String) As String
    MakeReplecement = "=RSS|'" & code & "." & market & "'!"
End Function