Validar de devolucion compra

Quiero validar que la cantidad devuelta no exceda la cantidad comprada y que no sea nulo
pero no me sale
solo inserta si esta bien, pero quiero que valide eso y no me sale
Private Sub CmdAceptar_Click()
fil = 1
filac = 1
While fil <= ubGrid2.Rows
   If Trim(CStr((ubGrid2.TextMatrix(fil, 3)))) <> "" Then
    If CStr((Trim(ubGrid2.TextMatrix(fil, 3)) <= CStr(Trim(ubGrid2.TextMatrix(fil, 4))))) Then
        While filac <= ubGrid2.Rows
        ubGrid2.TextMatrix(filac, 6) = Val((ubGrid2.TextMatrix(filac, 3)) * Val(ubGrid2.TextMatrix(filac, 5)))
        db.Execute ("INSERT INTO det_devolucion)
        filac = filac + 1
        Wend
    Else
        MsgBox "La cantidad devuelta excede la cantidad comprada", vbOKOnly + vbCritical, "Electro"
    End If
    Else
            MsgBox "La cantidad devuelta no debe ser nula", vbOKOnly + vbCritical, "Electro"
    End If
    fil = fil + 1
 Wend
ubGrid2.Clear
MsgBox "Devolucion proveedor Generado", vbExclamation, "Electro"
End Sub