I suggest you will need a function to inspect the string on a word by word basis to determine where your required address finishes. Something like
Code:
Function AddressPart(addrstr as string) as string
dim str() as string
dim I as integer
dim result as string
str=split(addrstr," ")
result=""
for I=0 to ubound(str)
select case str(I)
case "BLVD","ST","AVE"....extend for all options for last word of address
result=result & str(I) 'add final word of the address required and exit function
addresspart=trim(result)
exit function
case else
result=result & " " & str(I) 'add this part of the address and move on
end select
next i
addresspart="*** " & addrstr 'if the end part of address not found, add 3 stars (or other characters) so they can be identified by filtering.
end function