I have a string like "character/share/bangalore/chennai/trap", i need output whereever 3rd character is "a" retrieve the entire word from the sting

I have a string like "character/share/bangalore/chennai/trap", i need output whereever 3rd character is "a"  retrieve that entire word from the sting


str="character/share/bangalore/chennai/trap"
x=split(str,"/")
For i=0 to ubound(x)
If instr(1,x(i),"a")=3 Then
msgbox x(i)
End If
Next