Sub in function ?

Hej der ude :)

Jeg prøver at udføre en sub i en function, noget i stil med det her:

Option Explicit
Function test(msg)
    Sub thisOut(msg)
        Response.Write(msg)
    End Sub
Call thisOut(msg)
End Function

call test("ok")

Men kan ikke lige få det til at virke.
Får bare denne fejl: Microsoft VBScript compilation (0x800A03EA)

Nogle forslag til hvad man kan gøre ?
Pft