Use of "&" in Go to URL action

Hi

I am using go to URL action to open a sub report. I am passing one parameter on which the sub report is based. I have custom function which is:

Function OpenURL(ByVal URL As String) As String
Return "javascript:void(window.open('" & URL & "','_blank'))"
End Function

from the Go to URL action I am calling this function as:

=Code.OpenURL("http://reporting.mycompany.com/ReportServer?/ReportFolder%2fReportname&rs:Command=Render&Param1=" & Fields!PROFILE.Value)

When Fields!PROFILE.Value = "Corporate & Reporting" the go to URL action fails because of "&" . I have tried to replace "&" with "%26" and "&amp"

Replace(Fields!PROFILE.Value,"&","%26")

Replace(Fields!PROFILE.Value,"&","&amp")

but nothing is working out.

Can you please help me out.

Harris