Cevaplandırıyorum ancak, lütfen bundan böyle sorularınızı yeni konu açarak sorunuz.

Dim tarih As Date

tarih = Date

MsgBox ("Şu an: " & tarih)

şeklinde uygulamalısınız.

Ya da doğrudan

MsgBox ("Şu an: " & Date)

olarak kullanabilirsiniz.