Hjælp til vba kode med inputbox som skal gemme input i txt fil

Hejsa,

Jeg har et lille påroblem, som jeg håber i kan hjælpe med.
Jeg har lavet et lille graverings program i word som fungere fint, men det har det lille problem at vi ikke kan indsætte en anden defineret dato, så derfor har jeg indbygget en inputBox, som jeg så gerne ville have at værdien i inputBox bliver gemt i en txt fil eks. c:/Dato.txt

Således at denne værdi bruges hele tiden indtil at der ændres værdi i InputBox.

Her er eks. på kode

Sub Insætdato()

                Open "C:\test\SerieNr.txt" For Input As #1
                    Line Input #1, a$
                Close #1
                Ser = Val(a$)
                Ser = Ser + 18
                Open "c:\test\SerieNr.txt" For Output As #1
                    Print #1, Str(Ser)
                Close #1
               
              ' Det er denne del her som jeg ikke kan få til at virke
                Open "C:\test\Dato.txt" For Input As #2
                    Line Input #2, a$
                Close #2
                dat = Val(a$)
                dat = Date
                Open "c:\test\Dato.txt" For Output As #2
                    Print #2, Str(Dat)
                Close #2
               
                ' resten virker fint   
                    num = Ser
               
            Dato = InputBox("Indsæt graverings dato", , Format(Day(Date), "00") & Format(Month(Date), "00") & Right(Year(Date), 2))
               
               
            For Each acell In ActiveDocument.Tables(1).Rows(1).Cells
                acell.Range.Text = Dato & "  " & Format(Str(num), "0000")
                num = num + 1
            Next acell
                   
               
               
End Sub


Spørg hvis der er noget der skal forklares nærmere.

På forhånd tak

mvh dsj