Private Sub Command1_Click()Dim a As Integer, b As Integera = Asc(Right(Text1.Text, 1)) + 1If Len(Text1.Text) > 1 Then
b = Asc(Mid(Text1.Text, Len(Text1.Text) - 1, 1))Else
b = 96End IfIf a = 123 Then
a = 97
b = b + 1End IfText1.Text = ""If b > 96 Then Text1.Text = Chr(b)Text1.Text = Text1.Text & Chr(a)End Sub...