Function para remplazar parte de un campo

[Shaka]

Porque esta funcion me da error?

Código:

<%
Function cambia_letras(campo)
	if inStr(campo,"BI") >0 then
	Replace(campo,"BI","48")
	else 
		if inStr(campo,"AL")>0 then
		Replace(campo,"AL","01")
		else
		Replace(campo,"GU","20")
		end if
	end if
End Function
%>

Me dice:

Tipo de error:
Error de compilación de Microsoft VBScript (0x800A0414)
No se puede utilizar paréntesis al llamar a Sub
/cmv/view/home.asp, línea 48, columna 24
Replace(campo,"BI","48")
-----------------------^
Podran ayudarme?
Gracias