Funktion - fejler

Kan man ikek gøre sådan her ???
jeg får den fejlmeddelse .:

Microsoft VBScript runtime error '800a01c2'

Wrong number of arguments or invalid property assignment: 'Test'

/_jb/ASP/Apps/Login/ny_bruger.asp, line 62
------

kode .:


Function Test(Brugernavn,Kodeord)
    ' specialtegn der ledes efter
    myArr = Split("&amp;,!,#,~,¤,%,/,(,),=,?,´,`,@,£,$,€,{,[,],},+,|,¨,^,*,.,;,:,-,_,<,>,\,,,.", ",")
   
    For i = 0 To UBound(myArr)

        If InStr(Brugernavn,myArr(i)) Then
            strTemp = strTemp & myArr(i) & "&nbsp; fundet"
        End If
       
    Next
    Test = strTemp
End Function


If Brugernavn <> "" then       
linie 62 -->    StrTest = Test(Brugernavn)
        If StrTest <> "" then
            Response.Redirect "nybruger.asp"
            'Response.Write StrTest
            StrTest = ""
        end if
    end if
   
   
   
    If Kodeord <> "" Then
   
        If Kodeord <> Kodeord2 then
        Response.Redirect "ny_bruger.asp"
        end if
       
        StrTest = Test(Kodeord)
       
        If StrTest <> "" then
        Response.Redirect "ny_bruger.asp"
        StrTest = ""
        end if

    end if