VB6：运行时错误'13'：设置时键入不匹配，使用int键入int

I'm not new to VB6 programming, but I'm not a master at it either. Hopefully someone can help me out with a question that I have concerning a Type Mismatch error that I'm receiving from trying to set an int variable with a int returned from a function.I'm not new to VB6 programming, but I'm not a m