date stamp in arcgis 10

FrankVignati

In our 9.3.1 MXDs we use a VBA function stored in the ThisDocument of the MXD to date stamp the maps as they are opened. Does anyone know if this will work in ArcGIS10 or if not what we can use to perform the same type of function?
This is what we currently use:

Option Explicit
Private WithEvents m_pActiveViewEvents As Map

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
             (ByVal lpBuffer As String, nSize As Long) As Long

Private Function MxDocument_BeforeCloseDocument() As Boolean
    UnSetEvents
End Function

Private Function MxDocument_OpenDocument() As Boolean
    SetEvents
End Function

Public Sub SetEvents()
    Dim pMxDoc As IMxDocument
    Set pMxDoc = ThisDocument
    Set m_pActiveViewEvents = pMxDoc.PageLayout
End Sub

Public Sub UnSetEvents()
    Set m_pActiveViewEvents = Nothing
End Sub


Private Sub m_pActiveViewEvents_ViewRefreshed(ByVal pView As IActiveView, _
                                              ByVal phase As esriViewDrawPhase, _
                                              ByVal data As Variant, _
                                              ByVal Envelope As IEnvelope)
   
    Dim pGC As IGraphicsContainer
    Set pGC = pView
    pGC.Reset
    Dim pElement As IElement
    Set pElement = pGC.Next
    Do While Not pElement Is Nothing
        If TypeOf pElement Is ITextElement Then
            Dim pTextElement As ITextElement
            Set pTextElement = pElement
            If UCase(Mid(pTextElement.Text, 1, 5)) = "DATE:" Then
                pTextElement.Text = "DATE: " & Date
            End If
        End If
        Set pElement = pGC.Next
    Loop
   
End Sub

Function UserName() As String
    Dim UN As String * 260
    GetUserName UN, Len(UN)
    UserName = UN
End Function

EricMartinson

Hi Max-
Thanks for the code, but I'm afraid I'm a bit unschooled in how to use it. I'm guessing that if I knew .NET and VBA better, I could use your code to achieve what I used to with an ArcScript posted by a benevolent user years ago. His script made it easy for even lower primates such as me to add a button to an ArcMap toolbar that creates or updates a time/date/filepath stamp in the layout:
http://arcscripts.esri.com/details.asp?dbid=12887
The post has a link to download a txt with the code and instructions if you're curious.
Thanks again for any pointers you can give me.
Eric