To find partial text

Hi

Below is my search and find program. It is fine if I find whole word but it is not working when i try to find partial text.

Seach keyword : max

The following texts available in the rows and the program should find below texts

maxddd
ddmaxfff
ddmax

inp = InputBox("Enter The Keyword To Search")
uinp = UCase(inp)

For i = 6 To 500

Worksheets("Sheet1").Cells(i, 5).Select

v1 = UCase(Worksheets("Sheet1").Cells(i, 5).Value)
v2 = UCase(Worksheets("Sheet1").Cells(i, 6).Value)
v3 = UCase(Worksheets("Sheet1").Cells(i, 7).Value)
v4 = UCase(Worksheets("Sheet1").Cells(i, 8).Value)
v5 = UCase(Worksheets("Sheet1").Cells(i, 9).Value)


If uinp = "*" & v1 & "*" Or uinp = "*" & v2 & "*" Or uinp = "*" & v3 & "*" Or uinp = "*" & v4 & "*" Or uinp = "*" & v5 & "*" Then
rownumb = ActiveCell.Row
Worksheets("Sheet1").Rows(rownumb & ":" & rownumb).Hidden = False
k = 1
End If

Next i

It is not working

If uinp = "*" & v1 & "*" Or uinp = "*" & v2 & "*" Or uinp = "*" & v3 & "*" Or uinp = "*" & v4 & "*" Or uinp = "*" & v5 & "*" Then

Please help.

Thanks.