With Each Statment
With
object_expression
[
As
alias_name
]
[
code_block
]
End With