lrtest() - function to compute the optimal lag length?

Question

I estimated an VAR model:

Var <- VAR(vardata1, p = 10, type = "none", exogen = sdd)

I chose the number of Lags with Varselect()