《原创代码》vb.net文本超级替换，不同于word里面的全部替换

以下代码是在vb2008下运行调试成功。程序要求，一个windows窗体，一个button控件。 “替换词.txt”文件编写规则：一个关键词放在一行，单行是需要替换的词，双行是要替换的词。如果要替换的词为空，则删除要被替换的词。程序特点，可同时替换多个关键词，不必担心误替换。可以替换网页原代码文件。

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim wenben As String = "", i As Integer, aabb(0) As String
        Dim tihuan As String = ""
        If My.Computer.FileSystem.FileExists("c:\替换词.txt") Then
            aabb = File.ReadAllLines("c:\替换词.txt")
            wenben = File.ReadAllText("c:\test.txt")
            For i = 0 To aabb.Length - 1 Step +2
                tihuan = wenben.Replace(aabb(i), aabb(i + 1))
                wenben = tihuan
            Next
            File.WriteAllText("c:\test.txt", wenben)
        End If
    End Sub