Funzione in modulo che non funziona

[pietro09]

Qualcuno mi potrebbe per cortesia aiutare a fare funzionare una procedura in un modulo?

Module mdlLibreria
    Private This As HttpContext = HttpContext.Current()

    '--------------------------------------------------------------
    'Stampa una stringa con separatore riga
    '--------------------------------------------------------------
    Public Sub PrintLn(ByVal x$)
        This.Response.Write(x & "
")
    End Sub


End Module

E la richiamo nel seguente modo:

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PrintLn("Ciao, mondo!")
    End Sub