Declare sub
Sub declareSub() Dim DateOfBirth As Date Dim age As Integer Dim FullName As String End Sub