Por que a data retorna "31-12-1899" quando 1 é passada para ela?

Estou usando o Windows 10 OS excel 13, portanto, no código abaixo1 deve retornar1/1/1900 direito ? embaixo não faz o porquê.

Emesta pergunta OP passou2016 e obtive o mesmo resultado, por isso, se houver algum erro, por que obtive o mesmo resultado que o OP quando passei2016 ?

Sub ndat()

Dim dt As Date
dt = 2016
Debug.Print "dt is " & dt

End Sub