字符串的递增

输入一个字符串，如"ABC"，可返回字符串"ABD"；

输入              "Help"，可返回"HelQ"；

问题是：输入      "ZZ",怎样可返回"BAA"。这个问题相当于字符串递增。

代码如下：

Function AutoCode(LastNumber As String, MyCode As String) As String
    Dim Rmycode As String
    Dim Rnumber As Byte
    Rmycode = Right(MyCode, 1)
    'lastnumber的最后一个字符在mycode中出现的位置
    Rnumber = InStr(1, MyCode, Right(LastNumber, 1), 1)
    If Right(LastNumber, 1) <> Rmycode Then
        AutoCode = UCase(Left(LastNumber, Len(LastNumber) - 1) & Mid(MyCode, Rnumber + 1, 1))
    Else
    （这里的代码应该如何写呢？）   
    End If
End Function

点击下载此附件