Private Sub Form_click()
Dim m As String, S As String, CurB As Byte, AscII As Byte


S = Label1.Caption
L = Len(S)
e = String(L, "Z")
a = Asc(Right(S, 1))


Do Until S = e
a = a + 1
If a > Asc("Z") Then
a = Asc("A")
coun = 1
n:
b = Asc(Mid(S, L - coun, 1))
If b = Asc("Z") Then
S = Left(S, L - coun - 1) & "A" & Right(S, coun)
coun = coun + 1
GoTo n
Else
S = Left(S, L - coun - 1) & Chr(b + 1) & Right(S, coun)
End If
End If


S = Left(S, L - 1) & Chr(a)
Label1.Caption = S
DoEvents
Loop


End Sub