>>482
Dim indexOfJ As Integer = str.IndexOf("J") ' str.LastIndexOf("J")
Dim indexOfA As Integer = str.LastIndexOf("A", indexOfJ)
Jが見つからなかったケースは考えてない