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

[MItaly]

If (K10-K11)>0,1 Then
    risultato="Ricca"
Else
    If K13<-0.10501 Then
        risultato="Bilanciare!"
    Else
        If K13>0,105 Then
            risultato="Diminuire"
        Else
            risultato="Tutto a posto"
        End If
    End If
End If

anche se in effetti si può semplificare in questo modo:

If (K10-K11)>0,1 Then
    risultato="Ricca"
ElseIf K13<-0.10501 Then
    risultato="Bilanciare!"
ElseIf K13>0,105 Then
    risultato="Diminuire"
Else
    risultato="Tutto a posto"
End If