Sub test()
Dim TextPosition(2) As Double
TextPosition(0) = 2#
TextPosition(1) = 2# TextPosition(2) = 0# ThisDrawing.ModelSpace.AddText Date & " " & Time,TextPosition,1 End SubSub test()
Dim TextPosition(2) As Double
TextPosition(0) = 2#
TextPosition(1) = 2# TextPosition(2) = 0# ThisDrawing.ModelSpace.AddText Date & " " & Time,TextPosition,1 End Sub