Dim io_sts As Integer
        Dim AxisNo As Integer
B_8154_get_io_status(3, io_sts)
        TextBox1.Text = Hex(io_sts)

3 yazan yer sensör numaralarımız. 0, 1, 2, 3 bu şekilde tek tek değişip deneyince 0 yazdıysak 0 baglı sensör calısıyor.

Fakat ben bunu bir if döngüsü içine alıp, hangisine basarsam calıssın istiyorum ama olmuyor bir türlü

Dim io_sts As Integer
        Dim AxisNo As Integer
        Dim ia As Integer
        For ia = 0 To 3
            AxisNo = ia
            B_8154_get_io_status(AxisNo, io_sts)
            TextBox1.Text = Hex(io_sts)
            If Hex(io_sts) = 4011 Then
                B_8154_emg_stop(CInt(ia))
            End If
        Next ia

Sizce nerede hata yapıyorum?