主题：替换

Dim Str1 As String = forms("代码编辑器").Controls("TextBox1").Value

Dim Str2 As String = forms("替换和查找").Controls("TextBox1").Value

Dim str3 As String = forms("替换和查找").Controls("TextBox2").Value

    三个TexTbox控件,我想在STR2中给出一个字符串,找到STR1相对应的字符串,并利用STR3给出的字符串替换掉.

说到底就是代码编辑器中的查找和替换按钮中那个东西.怎么做?