Visual Basic .NET: Differenza tra due date

Di seguito un esempio pratico in vb.net

        Dim data As New DateTime(2013, 5, 2, 13, 17, 5)
        Dim data2 As DateTime = Date.Now
        'ottengo la differenza tra due date
        Dim diff As TimeSpan = data2.Subtract(data)

        TextBox1.Text = "Giorni: " & diff.Days & vbNewLine
        TextBox1.Text &= "Ore: " & diff.Hours & vbNewLine
        TextBox1.Text &= "Minuti: " & diff.Minutes & vbNewLine
        TextBox1.Text &= "Secondi: " & diff.Seconds & vbNewLine