Excel Vba Dim Multiple Variables