If you know you always want to lose the seconds, you could simply trim off the part you don't want.

ArrTime = Replace(ArrTime, ":00AM", "AM")
ArrTime = Replace(ArrTime, ":00PM", "PM")

There are various ways, you could even trim from the right 5 chars and then add back the AM/PM notation. Or use mid to select from/to to trim but the above should work.

Let me know if this helps.