类型不匹配错误（vba）

Question

I get Type mismatch error in the last line of this part of code:

Dim test As Object
Set test = Mid(Trim(row.Cells(1, 19).Value), 9, 1) Mod 2

How can I resolve it?

Answer 1

There is no type hierarchy in VBA, an Object is for object instances, it cannot hold primitive types.

Use a Long

Dim test As long
test = Mid(Trim(row.Cells(1, 19).Value), 9, 1) Mod 2