Multiple tender qsrules

Does this make any senses to figure if multitender ?


Dim tvalrslt As Integer
     
 
 
        rslt = False
 
        If clsSession.Transaction.Tenders(1).AmountIn > 0 Then
            tvalrslt = tvalrslt + 1
        End If
        If clsSession.Transaction.Tenders(2).AmountIn > 0 Then
            tvalrslt = tvalrslt + 1
        End If
        If clsSession.Transaction.Tenders(3).AmountIn > 0 Then
            tvalrslt = tvalrslt + 1
        End If
        If clsSession.Transaction.Tenders(4).AmountIn > 0 Then
            tvalrslt = tvalrslt + 1
        End If
        If clsSession.Transaction.Tenders(5).AmountIn > 0 Then
            tvalrslt = tvalrslt + 1
        End If
 
 
        If tvalrslt > 1 Then
 
            MsgBox("Faites une mise de coté !")
            Return True
 
 
        End If