FIX: Multiple CreateObject May Cause GP Fault in VBOA300.DLL

MORE INFORMATION

Steps to Reproduce Problem

1. Start a new project in Visual Basic. Form1 is created by default.
2. Add a command button (Command1) to the form.
3. Add the following code to the Command1_Click event:

      Sub Command1_Click ()
         Dim X As object
         Dim R As object
         Dim Iterations As Integer
   
         While True
            Iterations = Iterations + 1
            Debug.Print Iterations
            Set X = CreateObject("Excel.Sheet.5")
   
            ' Enter the following two lines as one, single line:
            Set R = X.Parent.Sheets(1).Range(X.Parent.Sheets(1).Cells(2, 2),
               X.Parent.Sheets(1).Cells(52, 2))
   
            Set R = Nothing
            Set X = Nothing
         Wend
      End Sub
   						

4. Run the program.

Example Workaround

   Sub Command1_Click ()
      Dim X As object
      Dim R As object
      Dim Iterations As Integer

      While True
         Iterations = Iterations + 1
         Debug.Print Iterations
         Set X = CreateObject("Excel.Sheet.5")

         ' Enter the following two lines as one, single line:
         Set R = X.Parent.Sheets(1).Range(X.Parent.Sheets(1).Cells(2, 2),
            X.Parent.Sheets(1).Cells(52, 2))

         ' The next line quits the application for an Excel object
         X.Application.Quit
         Set R = Nothing
         Set X = Nothing
      Wend
   End Sub