<birth_date>1989-08-02
      <year_only>0</year_only>
</birth_date>

<year_only>0</year_only>

Sub CheckProxy()
    On Error Resume Next: Err.Clear
    With CreateObject("MSXML2.ServerXMLHTTP.6.0")
        .setProxy 2, "77.37.202.134:10187"
        .setProxyCredentials "Login", "Pass" 'логин и пароль ввожу правильные
        .Open "GET", "https://clarity-project.info", False
        .setTimeouts 10000, 10000, 10000, 10000
        .send ("")
        a = .Status
        If .Status = 200 Then
            Debug.Print .responseText
        End If
    End With
End Sub

For i = 1 To 5
    For Each TmpShape In ActiveSheet.Shapes
        If TmpShape.Type = msoPicture Then
            If Cells(i, 2).Address = TmpShape.TopLeftCell.Address Then
                hprlkAddress.Address = ActiveSheet.Shapes(TmpShape).Hyperlink.Address
                ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 2), Address:=hprlkAddress.Address
            End If
        End If
    Next
    i = i + 1
Next

Public Sub CheckFormFields(ByVal ChooseNameOfForm As Variant)
Dim ctrl As Control
Dim frmName As UserForm

Set frmName = ??????? имя формы передаётся из переменной ChooseNameOfForm 

With frmName

.....

End With
End Sub