Ignora a data do sistema e verifica a data real

Question

Eu criei um pequeno sistema no Excel. No momento, esse é o código que estou usando:

Me.txtdate.value = Date
da = CDate(txtdate.value)
Me.txtdate.value = Format(da, "MM/DD/YYYY")

O que estou recebendo é a data com base no que meu computador tem. Meu problema é que, se o usuário alterar a data do sistema, é isso que o Excel iria ler. Eu gostaria de obter a data "Real" se possível. Existe uma solução alternativa para esse problema? Obrigado!