declare several variables on the same line, separating each variable name with a comma
Sub declSeveral() Dim FullName As String, DateOfBirth As Date, age As Integer End Sub