Using IFERROR in VBA

Im having problems taking a formula that works in excel and making it work in VBA. I have a column of text as follows

`1-1
`1-2
`1-3
`1-4
100
101
ALL
`22-2
`22-20

I would like to pull out the numbers to the right of the the dash when the entries are in that format but let the value pass through if it something other than the dashed format.

=IFERROR(MID(F1,(FIND("-",F1)+1),2),F1) works very nicely in excel to do what I want but Ive tried everything I know to do (and that's not much, this is the second program Ive ever written) to make it work in VBA


Here is what Ive come up with and it is not working

Dim lngLastRow As Long

lngLastRow = Cells(Rows.Count, "A").End(xlUp).Row

    Range("h1:h" & lngLastRow).Formula = Application.WorksheetFunction.IfError(Mid(F1, (Find("-", F1) + 1), 2), F1)

I appreciate any help that anyone can give me on this

thanks


Edit

I figure out what I was doing wrong

Range("z1:z" & lngLastRow).Formula = "=IFERROR(MID(y1,(FIND(""-"",y1)+1),2),y1)"