Ввести № и дату с помощью формы

Sub Макрос2()
 
    Dim myTextBox As Word.Shape
    
    '1. Вставляем надпись и даём этой надписи имя "myTextBox".
    'Через это имя будем обращаться к этой надписи.
    'Часть кода получена с помощью макрорекордера.
    '"Anchor" - это фрагмент документа, к которому привязывается надпись.
        'В программе Word, если включен режим отображения непечатаемых символов,
        'то видно якорь, который показывает с каким абзацем связана надпись.
    'ActiveDocument.Paragraphs(1).Range - это фрагмент документа, где находится
        'первый абзац. Надпись может находиться только на одном листе
        'с абзацем, к которому привязана.
    Set myTextBox = ActiveDocument.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
        Left:=205.35, Top:=182.8, Width:=140.9, Height:=100.8, _
        Anchor:=ActiveDocument.Paragraphs(1).Range)
        
    '2. Помещение в надпись текста.
    myTextBox.TextFrame.TextRange.Text = "Text"
 
End Sub