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("A1:A1").Item(1, 1 ...

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)
BList(0) = "Sun"
BList(1 ...

It works well for me:

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

please try simply:
MsgBox Date

does it work?