Function DatumI() Dim Dat As Date Dat = Date MsgBox Dat End Function