Problema con un IF

[Cuezaltzin]

Hola a todos.

Me podrian ayudar a poner a funcionar estas condiciones llevo ya dia y medio y no me sale.

Que funciones estas dos sentencias en una sola.

Sentencia 1
if Marca <> "" and ucase(Marca)<>"Cualquiera" then
if sqlWhere <> "" then sqlWhere=sqlWhere & " AND "
sqlWhere = sqlWhere & " Marca ='" & Valor5& "'" t
end if

Sentencia 2
if Marca <> "" and ucase(Marca)="Cualquiera" then
if sqlWhere = "Cualquiera" then sqlWhere=sqlWhere & " AND "
sqlWhere = sqlWhere
end if


Ojala me puedan ayudar.