SoftMaker.com

An example of writing current date to A1 cell and reading the A1 cell as date: Dim pm as Object Set pm = CreateObject("PlanMaker.Application") pm.Application.Visible = True pm.Workbooks.Add pm.ActiveSheet.Range("A1:A1").Item(1, 1).Value = Date dateFromCell = pm.ActiveSheet.Range(...

Please use Function Dialogfn for this (changes are marked as ###) : Option Explicit Dim pm as Object Set pm = CreateObject("PlanMaker.Application") pm.Visible = True pm.Activate Dim AList$(3) AList(0) = "Cat" AList(1) = "Dog" AList(2) = "Elephant" Dim BList$(3...

It works well for me:

Sub Main
MsgBox "Today is " & Date & "."
End Sub

please try simply:
MsgBox Date

does it work?