Look for a number starting with a partcular sequence of digits

[excelaspire0219]

Hi,
What I have here is a code which looks for a number starting with 410, moves to another cell and autofills it. Does anyone know how can it be modified so that it will look for a number starting with 410 as well as 430 or any number starting with 4?
Thanks.

Sub MovePO()
Dim Cell As Range
Dim Num As String

Set Cell = Range("B1")
Do Until Cell = "END OF REPORT"
Select Case Left(Cell.Value, 3)
Case "410"
Num = Cell.Value
Cell.Value = ""
Case Is <> ""
Cell.Offset(0, -1).Value = Num
End Select
If Cell.Row = Rows.Count Then
   MsgBox "Last Row on Sheet Reached"
   End
End If
Set Cell = Cell.Offset(1, 0)
Loop
End Sub

[ChemistB]

Change

Select Case Left(Cell.Value, 3)

to

Select Case Left(Cell.Value, 1)

and

Case "410"

to

Case "4"

Does that work for you?

[excelaspire0219]

I tried that, it returns a value of 4 instead of the entire 10 digit number...