Evaluate Formula Syntax in VBA code

Hi

I have this line of code containing an Evaluate Formula:

vstrIDs = Join(Application.Transpose(Evaluate("IF(" & .Address & "<>"""",MID(" & .Address & ",2,5),"" "")")), " ")

I need to replace the 5 with this formula, translated to replace C174 to .Address, as appropriate and getting the syntax right.

MID(C174,2,FIND("^^",SUBSTITUTE(C174,"-","^^",2))-FIND("-",C174)+1)

I am having trouble with all the damned double quotes...

One of my unsuccessful attempt:

vstrIDs = Join(Application.Transpose(Evaluate("IF(" & .Address & "<>"""",MID(" & .Address & ",2,MID(" & .Address &" ,2,FIND(""^^""",SUBSTITUTE(" & .Address & ",""-"",""^^"",2))-FIND(""-""," &.Address & ")+1)),"" "")")), " ")

Thanks.