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

Please Login or Register  to view this content.

I appreciate any help that anyone can give me on this

thanks


Edit

I figure out what I was doing wrong

Please Login or Register  to view this content.

Try this. In VBA when you use WorksheetFunction, it is not simply a copy of the actual worksheet function. It is a VBA Function with parameters, and the parameters must be VBA expressions. In VBA, using F1 unadorned like that means it's an undeclared variable. It will cause a compile error if you use Option Explicit, and otherwise will just be a Variant variable that hasn't been assigned a value. You have to use an expression that results in a Range.

Please Login or Register  to view this content.