VBA code to convert absolute to semi-relative referenced range

I want to create a function in VBA that has a cell and a range as input like this:

MyFunction (cell1, range1)
...
End function

Calling MyFunction with input parameters cell1 = A1 and range1 = $A$1:$A$10 MyFunction should evaluate the following formula:

RANK(A1,$A$1:$A$10,0)+COUNTIF(A$1:A1,A1)-1

The difficulty with this is that the input range is specified as an absolute reference ($A$1:$A$10) but the formula should use a semi-relative range in the count if statement (A$1:A1).

Can someone please show me the code to do this?

Many Thanks !

Let's try to use Evaluate. In any case, see attached file.

Function gpk(rng As Range) 'RANK(A1,$A$1:$A$10,0)+COUNTIF(A$1:A1,A1)-1
Dim s1$, s2$, i&, t()
ReDim t(1 To rng.Cells.Count, 1 To 1)
With rng
    s1 = .Cells(1).Address
    For i = 1 To rng.Cells.Count
        s2 = .Cells(i).Address
        t(i, 1) = Evaluate("RANK(" & s2 & "," & rng.Address & ",0)+COUNTIF(" & s1 & ":" & s2 & "," & s2 & ")-1")
    Next
End With
gpk = t()
End Function

function gpk(x,y,z)
  gpk=application.RANK(x,y,0)+COUNTIF(z,x)-1
end funtion

e.g. in cell B1

PHP Code: 

=gpk(A1,A1:A10,C1:C7) 


PS. I have no idea what A$1:A1 is different from A1 or $A1 or $A$1 or A$1