VERSION 1.0 CLASS BEGIN MultiUse = -1 'True END Attribute VB_Name = "InterfaceDateClass" Attribute VB_Creatable = True Attribute VB_Exposed = True Public Function GetDate() As String GetDate = Date End Function