Sub Main
	Dim MyDate1 As Date
	Dim MyDate2 As Date
	MyDate1 = Time
	
	DDE = DDEInitiate("KNOBO", "SYSTEM")
	MyDate2 = Time
	
	MsgBox ("started: " + MyDate1 + Chr(13) + "Ended: " + MyDate2)
	
	sDDEResult  = DDERequest(DDE, "Random")

End Sub