Datoformat, bogmærker mv. - HASTER

Er der nogen der kan hjælpe mig?

Jeg sidder i øjeblikket med følgende kode (bemærk at noget af den er rammet ud - og ikke skal bruges):

If TxtDatomåned.Text <> "" Then
        ActiveDocument.Bookmarks("dato").Select
        Selection.InsertAfter Text:="" & TxtDatomåned.Text
    End If
   
    If TxtDatomåned.Text <> "" Then
        ActiveDocument.Bookmarks("dato2").Select
        Selection.InsertAfter Text:="" & TxtDatomåned.Text
        ActiveDocument.Bookmarks("dato2").Select
        Selection.MoveRight Unit:=wdCharacter, Count:=17, Extend:=wdExtend
        'Format Datovariabel, "dd.MM.yy"
        Selection.InsertDateTime DateTimeFormat:="dd.MM.yy", InsertAsField:= _
        False
        'Selection.MoveLeft Unit:=wdCharacter, Count:=17, Extend:=wdExtend
        ''Selection.TypeText Text:=""
        'Selection.InsertDateTime dateTimeFormat:="dd.MM.yy", InsertAsField:= _
        False, DateLanguage:=wdDanish, CalendarType:=wdCalendarWestern, _
        InsertAsFullWidth:=False
        ActiveWindow.ActivePane.Close
    If ActiveWindow.View.SplitSpecial = wdPaneNone Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    Else
        ActiveWindow.View.Type = wdPrintView
    End If

Jeg vil have at bogmærket dato2 indsætter den samme dato som bogmærket dato, men i et andet format (dd.mm.yy/26.11.02)).

Jeg kan ikke overskue hvorledes koden skal se ud, nogle kloge svar til mig.

Mvh. Helene