Solución 2.3 Utilizar la fecha del sistema

Sub ConversionFecha()  
    Dim datFecha As Date 
    Dim strCadena1 As String 
    Dim strCadena2 As String 
    Dim strCadena3 As String 
    datFecha = Date  ...