VB 大寫字母排序

Private Sub Command5_Click()
    Dim x3()
ReDim Arr3(1 To 26)
    For i = 1 To 26
        x3(i) = Chr(64 + i)
    Next

這是按照大寫字母自動排序的，下面是我自己的代碼需要這部分先反推出當前i值，求i+1也就是下一個的字母
      strRST_SQL = "Select sm002,sm003,max(sm006) from dgmocsm where sm003='" & Trim(Text1(2).Text) & "' and sm002='秨祇穝家' group by sm002,sm003 "
        Call SetRSTReadOnly(strRST_SQL)
        If rst.RecordCount > 0 Then
            x = rst.Fields(2).Value
            strRST_SQL = "Select sm002,sm003,max(sm006) from dgmocsm where sm003='" & Trim(Text1(2).Text) & "' and sm002='秨祇传' group by sm002,sm003 "
            Call SetRSTReadOnly(strRST_SQL)
              If rst.RecordCount > 0 Then
                x1 = Right(rst.Fields(2).Value, Len(rst.Fields(2).Value - Len(x & "-")))
                x1 = x3(i)
            如