imports Microsoft.VisualBasic.DateAndTime
Dim _date As Date = Today
dim _y as string = _date.Year().ToString()
dim _y2 as string = _y.Substring(_y.length-2,2)
dim _m as string = _date.Month().ToString()
_m2 = String.Format("0{0}",_m2)
Console.WriteLine(String.format("Tahun {0} {1}", _y2, _m2) )