Sto facendo un programma per calcolare il giorno della settimana data una data nascita.Il problema è che mi dà errore un istruzione response.write.Ecco il codice

codice:
Class giorno_nascita
        Public capelli As String
        Public occhi As String
        Public data_nascita As Date
        Public datanascita As Integer
        
        
        Sub giorno(ByVal data_nascita As Date)
                        
            datanascita = data_nascita.DayOfWeek
            Select Case datanascita
                Case 0
                    Response.write("domenica")
                    
            End Select
            
            
        End Sub
    End Class
    
    Sub button_click(ByVal obj As Object, ByVal e As EventArgs)
        Dim dn As New giorno_nascita
        Dim datanascita1 As Date = CDate(tdata.Text)
        
        dn.giorno(datanascita1)
        Response.Write(tdata.Text)
        
        Response.Write(tcapelli.text)
        Response.Write(tocchi.Text)
        
    End Sub
Il problema è all'interno del metodo giorno e l'errore dice:Reference to a non-shared member requires an object reference.Come posso fare? grazie