Excel VBA Replace the nth word in a string

Question

my problem is the following:

I have two sets of strings. The "words" are separated with "+".

String 1: "A25+F47+w41+r21+h65

String