If you're going to declare multiple variables on one line, make sure each variable is specifically declared
Sub dSub() Dim intCounter As Integer, intAge As Integer, intWeight As Integer End Sub