Find last row using xlUp with value, not just formula

Maybe something like:

LastRow = Range("B:B").Find("*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

With or without a "+ 1" at the end.