Hi Lightspeed.
Simple to do.
Rem Type=Plugin
Rem Name=Date Plugin
Rem Author=Gerald L. Blakley A.K.A OnTheCuttingEdge2005
Rem Host=All
'This sub setups the plug-ins option panel in Hal's options dialog
Sub OptionsPanel()
lblPlugin(0).Caption = "This is just a Date plugin, ask, What is today?"
lblPlugin(0).Move 120, 10, 3300, 1000
lblPlugin(0).WordWrap = True
lblPlugin(0).Visible = True
End Sub
Rem PLUGIN: PLUGINAREA7
If InStr(1, UserSentence, "what is today", vbTextCompare) > 0 Or _
InStr(1, UserSentence, "the day today", vbTextCompare) > 0 Or _
InStr(1, UserSentence, "what is the date", vbTextCompare) > 0 Then
GetResponse = " Today is " & FormatDateTime(Date(),1)
End If
Jerry[8D]