Runtime-Error 5 translates to "Invalid Procedure-Call" (or similiar - i have german VBA)
What's the Value of strRecipientAddress?
What's the Return-Value of the InStr-Call?
The only reason i know why Mid should fail is if InStr returns 0