Différence entre sub et fonction en vb_2010

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
        ChangerLabel(Label1)
    End Sub

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
        Label2.Text = AffiNombre()
    End Sub

    Sub ChangerLabel(ByVal C As Control)
        'Passe le controle en argument et le modifie. Ne retourne rien.
        C.Text = "Nouveau Nombre = " & Int(100 * Rnd())
    End Sub

    Function Affinombre() As String
        'Génére seulement un nouveau nombre. Retourne le résultat
        Affinombre = "Nouveau nombre = " & Int(100 * Rnd())
    End Function