[VB6] Tradurre una funzione Excel per vb6 (if concatenate)

[Folcus]

Non so minnimamente se è giusto, bisogna provarlo...è miglirabilissimo...anche perchè dovrei vedere meglio il fogli excel per capire come funziona la "funzione".
comunque:

If A17.Value = Checked Then
    '[2] SE(A18="S";SE(3);SE(6)
    If A18.Value = Checked Then
        '[3](A19="S";SE(D17>0;D17/3;0);SE(D17>0;D17/2;0))
        If A19.Value = Checked Then
            '[4][5] SE(D17>0;D17/3;0);SE(D17>0;D17/2;0)
            If d17 > 0 Then
                a = d17 / 3
                b = d17 / 2
            Else
                a = 0
                b = 0
            End If
        End If
else
        '[6]SE(A19="S";SE(D17>0;D17/2;0);SE(D17>0;D17;0))
        If A19.Value = Checked Then
            'SE(D17>0;D17/2;0)
            If d17 > 0 Then
                a = d17 / 2
                b = d17
            Else
                a = 0
                b = 0
            End If
        End If
    End If
Else
    a = 0
    b = 0
End If