Visual Basic - como usar DateTime

dim Dia,Mes,Año,Fecha

fecha=date()

dia=left(date,2)

mes=right(left(date,4),2)

año=right(date,2)

Dim fecha As Date

    Dim dia As Integer, mes As Integer, anyo As Integer

    fecha = Now

    dia = Day(fecha)

    mes = Month(fecha)

    anyo = Year(fecha)

    MsgBox "Dia = " & dia & ", Mes = " & mes & ", Año = " & anyo