codice:
Function CalcolaDensità(ByVal superficie As Integer, ByVal popolazione As Integer)
        Dim risultato As Integer = superficie / popolazione
        Return risultato
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox3.Text = CalcolaDensità(TextBox1.Text, TextBox2.Text)
    End Sub
Function, a differenza di Private Sub, richiede un ritorno di una variabile, che è esattamente quello che vuoi tu. Semplicemente, una volta fatta la funzione, deve richiedere 2 variabili quando chiamata: superficie e popolazione, che calcolerà e ritornerà il risultato.