VB.NET การตัดเอา วันที่ เดือน ปี ใน พ.ศ.ปัจจุบัน

<?
Public Class Form25
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.GenID()
    End Sub

    Sub GenID()
        Dim day2 As Date = DateTime.Today
        Dim str1() As String
        Dim yr As String = ""
        Dim c1() As Char = {"/"c}
        Dim a As String = day2.ToShortDateString
        str1 = a.Split(c1, StringSplitOptions.None)
        yr = CInt(str1(2)) ------------------------->  เลข 2 คือ พ.ศ. 1,0 คือ เดือน และ วัน ตามลำดับ  
        MsgBox(yr)
    End Sub
End Class
?>