Filling out headers with date in Word

[ilikepython]

Hello,
I'm trying to use visual basic to automatically write headers. Something like this:

<my name>                       <class>
<date>                      <my <class>'s teacher's name>
 

I went to record macro and I did the header manually and I got this code:

Sub EnglishHeader()
    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Or ActiveWindow.ActivePane.View.Type _
         = wdMasterView Then
        ActiveWindow.ActivePane.View.Type = wdPageView
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.TypeText Text:="<my name>" & vbTab & vbTab & "English"
    Selection.TypeParagraph
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldDate
    Selection.TypeText Text:=vbTab & vbTab & "<my teacher's name>"
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub
 

I copied and pasted that for all of my classes so instead of writing the header manually the macros do it for me. However, I need the date to be the date when I wrote the document not the date when I'm looking at it. Because, when I open the document a couple of days later the date isn't preserved and it shows the current date. Is there any way I can make the date stay like it was the day when I wrote the document? Even if I change the date manualy, the next time I open the file, it changes back to the current date. So that means that the macro is run everytime I open the document? I'm sorry if this is really simple but I haven't used vb at all. Appreciate any help.