"Yasak" boş geliyordur.

Function Guvenlik(Yasak)

If Yasak = "" Then Exit Function

Yasak = Replace (Yasak ,"=","",1,-1,1)
Yasak = Replace (Yasak ,"&","",1,-1,1)
Yasak = Replace (Yasak ,"*","",1,-1,1)
Yasak = Replace (Yasak ,",","",1,-1,1)

şeklinde dener misiniz?