Excel 2007 Runtime Error 13 Type Mismatch

[Rster0211]

Please help, I'm stumped. I keep getting the type mismatch error at the following sections of code:

Public Function GetCurrentSk() As Integer
Dim meqptID As Integer
meqptID = 0
If cItems.ePrimary <> 0 Then '@runtime, cItems.ePrimary = 17
    meqptID = ListForm.GetNumReferenceUsed(cItems.ePrimary) '<- Type Mismatch upon execution at this line
End If
GetCurrentSk = meqptID
End Function

The follow is the code for ListForm.GetNumReferenceUsed:

Public Function GetNumReferenceUsed(ByVal eRow As Integer) As Integer
GetNumReferenceUsed = dRefUsed(eRow - 2) '<- debugger never reaches this function, type mismatch before here
End Function

Some background: cItems.ePrimary is a class with public property get which returns an integer (17) in this example.
dRefUsed() is an array of integers, in this example it has 18 items and I'm accessing the 15th.
ListForm is separate form with the public function GetNumReferenceUsed. ListForm is loaded at runtime.

I've been pulling data from the ListForm through other functions without an issue, and only this one seems to be a problem. Thanks in advance for the assistance!

 

[Dryver14]

are you sure all the itmes are integers? seems something could be text.

 

[Ruddles]

Immediately before the line meqptID = ListForm.GetNumReferenceUsed(cItems.ePrimary) insert a line which reads:-

Debug.Print cItems.ePrimary, ListForm.GetNumReferenceUsed(cItems.ePrimary)

When the program abends, look in the Immediate window (Ctrl-G) to see what value caused it. That might give you a clue.

 

[Rster0211]

Immediately before the line meqptID = ListForm.GetNumReferenceUsed(cItems.ePrimary) insert a line which reads:-

Debug.Print cItems.ePrimary, ListForm.GetNumReferenceUsed(cItems.ePrimary)

When the program abends, look in the Immediate window (Ctrl-G) to see what value caused it. That might give you a clue.

I get the same error on the Debug line. Type mismatch. ePrimary is still reading the value of 17.

Debug.Print cItems.ePrimary succeeds
Debug.Print ListForm.GetNumReferenceUsed(17) fails as a type mismatch, even when i test a hard-coded value of 17.