Replace("abcdefg","ab","ba")             '(结果=bacdefg)将"ab"替换成"ba"
Replace("1A2A3A4A5A6", "A", "0", 1, 1)   '(结果=102A3A4A5A6)从第一个关键词开始替换一次
Replace("1A2A3A4A5A6", "A", "0", 1, 2)   '(结果=10203A4A5A6)从第一个关键词开始替换两次
Replace("1A2A3A4A5A6", "A", "0", 2, 1)   '从第二个关键词开始替换一次，不知啥原因左边第一个字会被删除，有待研究。
Replace("1aBc2ABC3abc4abC5aBc6AbC", "ABC", "0", , , vbTextCompare) '(结果=102030405060)不区分大小写替换所有
len("abcdefg")                           '(结果=7)返回字符串的字符数
left("abcdefg",2)                        '(结果=ab)返回字符串左边2个字符
Right("abcdefg",2)                       '(结果=fg)返回字符串右边2个字符 
Split(Split("abcdefg", "a")(1), "c")(0)  '(结果=b)返回字符串中"a"到"c"之间的字符串,(1)表示匹配第一组字符串
mid("abcdefg",3,2)                       '(结果=cd)取字符串"abcdefg"左边第三个字符起两个字符
Ltrim("  abcdefg")                       '(结果=abcdefg)去掉字符串左边空格
Rtrim("abcdefg ")                        '(结果=abcdefg)去掉字符串右边空格 
Space(2)                                 '(结果=  )产生2个空格
String(5, "A")                           '(结果=AAAAA)产生5个A，也可这样写：String(5, 65)
UBound(Split("abcdefg", "b"))            '(结果=1)判断字符串"b"在字符串"abcdefg"中出现的次数
InStr(2, "abcadefg", "a")                '(结果=4)在字符串"abcadefg"中，从位置2开始查找字符串"a"出现的位置
String(2,"abcdefg")                      '(结果=aa)"abcdefg"中首字符组成的2个相同的字符
Trim(" abcabcdefg ")                     '(结果=abcdefg)去掉字符串两边的空格
InStrRev("abcdefcg", "c")                '(结果=7)判断"c"最后出现在位置
Right("abcdefg", Len("abcdefg") - 1)     '(结果=bcdefg)删除左边1个字符
Left("abcdefg", Len("abcdefg") - 1)      '(结果=abcdef)删除右边1个字符
InStr("abcdefg", "a")                    '(结果：大于0)判断"abcdefg"中是否有a存在，大于0则存在，反之则存在
IsNumeric("0123456abc")                  '(结果=True)判断"0123456abc"是否为数字，返回True为数字，返回False为其它
Lcase("AbCdeCg")                         '(结果=abcdefg)将字符串中的大写字母转小写
Ucase("AbCdeCg")                         '(结果=ABCDEFG)将字符串中的小写字母转大写
strreverse("abcdefg")                    '(结果=gfedcba)将字符串前后颠倒
Dim a() As String
a = Split("a|b|c", "|")                  '(结果 a(1) = c a(2) = d a(3) = c)返回一组数组，以"|"为分割符
UBound(Split(Text1.Text, vbCrLf)) + 1    '返回Text1.Text总行数
Split(Text1.Text, vbCrLf)(n-1)           '取Text1.Text第n行

Public Function 替换指定位置文本(ByVal 原文本 As String, ByVal 位置 As Integer, ByVal 替换文 As String)
    Dim a As Integer
    Dim b As String
    For a = 1 To Len(原文本)
        If a = 位置 Then
            b = b & Mid(原文本, a, 1).Replace(Mid(原文本, a, 1), 替换文)
        Else
            b = b & Mid(原文本, a, 1)
        End If
    Next a
    替换指定位置文本 = b
End Function