BUG: VBCE: Type Mismatch Error Message When Using InputFields Method (209068)

MORE INFORMATION

Steps to Reproduce Behavior

1. Start a new Windows CE project in Visual Basic. Form1 is created by default.
2. From the Project menu, select Components, and then select Microsoft CE File System Control 6.0.
3. Add three TextBox controls, a File control, and two CommandButton controls to Form1.
4. Paste the following code into Form1:

   Option Explicit
   Const lrFileModeInput = 1
   Const lrFileModeOutput = 2
   Dim strDataFile As Variant
   
   Private Sub Command1_Click()
       Dim arr(2) As Variant
   
       File1.Open strDataFile, lrFileModeOutput
       arr(0) = Text1.Text
       arr(1) = Text2.Text
       arr(2) = Text3.Text
       Text1.Text = ""
       Text2.Text = ""
       Text3.Text = ""
       File1.WriteFields arr
       File1.Close
   End Sub
   
   Private Sub Command2_Click()
       'Dim arr(2) As Variant
       'This is the right declaration
       Dim arr As Variant
   
       Text1.Text = ""
       Text2.Text = ""
       Text3.Text = ""
       File1.Open strDataFile, lrFileModeInput
       arr = File1.InputFields(3)
       Text1.Text = arr(0)
       Text2.Text = arr(1)
       Text3.Text = arr(2)
       File1.Close
   End Sub
   
   Private Sub Form_Load()
       Command1.Caption = "Write File"
       Command2.Caption = "Read File"
       Text1.Text = "Item"
       Text2.Text = "Description"
       Text3.Text = "Location"
       
       If (Len(App.Path) > 0) Then
           strDataFile = Right(App.Path, Len(App.Path) - 1) & "\" & _
               "inventory.dat"
       Else
           strDataFile = "inventory.dat"
       End If
   End Sub
   					

5. Run the program in emulation or on the remote device.
6. Click on the Write File button and then click on the Read File button. The error message described above appears.