Find text within cell followed by integer

Instead of searching for "TO " within a cell and deleting every row above it when found, I want to search for "TO xy" where x is an integer and y is also an integer.
How would I alter it so that I could do this?

Private Sub Macro1()

Dim rngFind As Range

Set rngFind = Cells.Find(What:="*TO *")
Range(rngFind.Offset(-1, 0), Cells(1)).EntireRow.Delete
Set rngFind = Nothing


End Sub