Search Using Wildcard In Macro

I have a spreadsheet where there are lines of different Wage Types but only certain combinations are needed. For example I have Pay Area 1234 which needs all wage types except those beginning with a 9.

To do this I have set up Sheet1 to look like this:

12341
12342
12343
12344
12345
12346
12347
12348

and not 12349 as I do not require this type.

The problem here is I need to add a wildcard to the end of these so it finds anything that starts with 12341 etc.

Sheet1 contains the personal details of employees and I have concatenated the Payroll Area and Wage type in column D.

Code:

Sub deleterows()
Application.ScreenUpdating = False
Set MySheet = Sheets("data")
LR = MySheet.Cells(Rows.Count, "D").End(xlUp).Row
For i = LR To 2 Step -1

[Code]...