<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 = 2 To 3000
        For Each TmpShape In ActiveSheet.Shapes
            If TmpShape.Type = msoPicture Then
                If Cells(i, 2).Address = TmpShape.TopLeftCell.Address Then
                    On Error Resume Next
                    Set hprlk = TmpShape.Hyperlink
                    On Error GoTo 0
                    If Not hprlk Is Nothing Then
                        hprlkCheck = hprlk.Address
                            If InStr(1, hprlkCheck, "javascript", 1) <> 1 Then
                                ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 2), Address:=hprlk.Address
                            End If
                        Set hprlk = Nothing
                    End If
                End If
            End If
        Next
    Next

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

Function CountDown(rg As Range, Optional Ma, Optional Mi)
  Dim i&, j&, Up As Boolean
  For i = 2 To rg.Count
    If rg(i - 1) < Ma And rg(i) >= Ma Then Up = True
    If Up Then If rg(i) <= Mi Then CountDown = CountDown + 1: Up = False
  Next
End Function