Fjerne &-tegn sidst i url

Jeg bruger den funktion til at fjerne eventuelle &-tegn sidst i en url, problemet er bare at den kun fjerner et, selvom der måske er 10 &-tegn.
Er der en som kan se hvad det lige er jeg gør forkert !?

Function Newurl(url)
  If Right(url, 1) = "&" Then
    modurl = Trim(Left(url,Len(url)-1))
    Newurl(modurl)
  Else
    modurl = url
  End If
Newurl = modurl
End Function