Private Sub Command1_Click()Dim Str As StringDim i As IntegerStr = "423abc43a<]da68"For i = 1 To Len(Str)
If Left(Right(Str, i), 1) = "a" Then
MsgBox Len(Str) - i + 1
Exit For
End IfNext iEnd SubPrivate Sub Form_Load()Form1.Command1.Caption = "OK"End Sub...