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

[MItaly]

Dovrebbe essere qualcosa di questo genere (metto i nomi delle celle come variabili perché non so dal tuo programma come tu ci acceda):

If A17="S" Then
    If A18="S" Then
        If A19="S" Then
            If D17>0 Then
                risultato=D17/3
            Else
                risultato=0
            End If
        Else
            If D17>0 Then
                risultato=D17/2
            Else
                risultato=0
            End If
        End If
    Else
        If A19="S" Then
            If D17>0 Then
                risultato=D17/2
            Else
                risultato=0
            End If
        Else
            If D17>0
                risultato=D17
            Else
                risultato=0
            End If
    End If
Else
    risultato = 0
End If

.
Si può comunque semplificare in questa maniera:

If A17="S" And D17>0 Then
    If A18="S" Then
        If A19="S" Then
            risultato=D17/3
        Else
            risultato=D17/2
        End If
    Else
        If A19="S" Then
            risultato=D17/2
        Else
            risultato=D17
    End If
Else
    risultato=0
End If

.