BUG: Error 458 Using For Each with Variant Array of UDTs

MORE INFORMATION

Steps to Reproduce Behavior

1. Create a new ActiveX EXE project in Visual Basic. Class1 is created by default.
2. Paste the following code into Class1:

         Type MyType
            x As Integer
            y(5) As Integer
         End Type
   
   						

3. Add a standard module to the project by selecting "Add Module" from the "Project" menu.
4. Paste the following code into Module1:

         Sub main()
            Dim x(5) As MyType
            Dim y as Variant
            y = x
            For Each g In y
            Next g
         End Sub
   
   						

5. Open the Immediate Window by selecting it from the View menu.
6. Type "main" (without quotes) into the Immediate Window and press the ENTER key to run the main subroutine. Note that the above error occurs on the For Each line.
   
   NOTE: If you change the line "For Each g In y" to "For Each g In x" so that the "For Each" statement will loop through the array X, the correct error description "For Each may not be used on an array of user-defined types or fixed-length strings" will occur instead.