tdf#95077 Check Index != 0

follow code:
ScVbaCollectionBase::getItemByIntIndex
....
return createCollectionObject( m_xIndexAccess->getByIndex( nIndex - 1 ) );
....
my test code of vba:
Application.ActiveWindow.Panes(1).View


Change-Id: I5229142377364f374e4bbc24bd3b8dfd5d351f56
Reviewed-on: https://gerrit.libreoffice.org/19239Tested-by: Jenkins <ci@libreoffice.org>
Reviewed-by: Norbert Thiebaud <nthiebaud@gmail.com>

sw/source/ui/vba/vbapanes.cxx

@@ -42,7 +42,7 @@ public:
     }
     virtual uno::Any SAL_CALL getByIndex( sal_Int32 Index ) throw (lang::IndexOutOfBoundsException, lang::WrappedTargetException, uno::RuntimeException, std::exception) override
     {
-        if( Index != 1 )
+        if( Index != 0 )
             throw lang::IndexOutOfBoundsException();
         return uno::makeAny( uno::Reference< word::XPane >( new SwVbaPane( mxParent,  mxContext, mxModel ) ) );
     }