Bien amigos, mientras esperaba alguna respuesta esto fué lo que se me ocurrió, aquí se lo escribo por si un día les sucede.
De todas formas, gracias, rey2k
Private Sub VerificaFormatoFecha()
'Comprobar si la pc utiliza dd/mm/yy
If CDate("17/12/04") = #17/12/2004# Then
MsgBox ("Formato Fecha (dd/mm/yy)")
End If
'Comprobar si la pc utiliza formato mm/dd/yy
If CDate("12/17/04") = #12/17/2004# Then
MsgBox ("Formato Fecha (mm/dd//yy)")
End If
End Sub
