dato i forbindelse med vedhæftet fil til outlook

Hejsa
Jeg har i en tidligere tråd set følgende kode fra bak:
Sub Send_via_Outlook()
Dim olApp As Outlook.Application
Dim olNewMail As Outlook.MailItem
Dim szBodyTekst As String
Set olApp = New Outlook.Application
Set olNewMail = CreateItem(olMailItem)
szBodyTekst = "Hermed fremsendes nye regneark" & vbCr
szBodyTekst = szBodyTekst & "mvh" & vbCr
szBodyTekst = szBodyTekst & "Tommy Bak" & vbCr

With olNewMail
    .Recipients.Add "tbc@linak.dk"
    .Subject = "Nye regneark"
    .Body = szBodyTekst
    With .Attachments
        .Add ThisWorkbook.Path & "\" & ThisWorkbook.Name
    End With
    .OriginatorDeliveryReportRequested = True
    .Display
    '.Send
End With
Set olNewMail = Nothing
Set olApp = Nothing

End Sub

findes der en kode som kan indsætte ugenummer i bodyteksten?