程序编不下去了,帮忙看看,该如何解决

程序编不下去了,帮忙看看
Public   Sub   temp()
        For   i   =   0   To   m_chCount   -   1
                Call   zt8403dibit(m_cardNO,   i)     '调用动态连接库里的子程序,m_cardno表示板卡号,i表示通道号,返回指定通道是1还是0

然后我要判断这个返回值,如果是1则记录下这个通道号,该怎么编?谢谢!

[解决办法]
For i = 0 To m_chCount - 1
if zt8403dibit(m_cardNO, i)=1 then
记录通道号i
end if
next i
[解决办法]
Dim iRecord As Intger

For i = 0 To m_chCount - 1
If zt8403dibit(m_cardNO, i)=1 then iRecord=i
next