Input box search by first letter of the cell value in the Column

[fotodj]

Sub Button1_Click()


Application.ScreenUpdating = False
Sheets("Sheet1").Select

LR = Cells(Rows.Count, "A").End(xlUp).Row
st = InputBox("Type Keyword")
If st = "" Then Exit Sub
For j = LR To 1 Step -1
         code = Range("A" & j).Text
         If code = st Then
            
             Range("G" & j).Select
             Application.Goto ActiveCell.EntireRow, True
            
            Exit For
         End If
 Next

  Application.ScreenUpdating = True
End Sub

I will need help to modify this code which I wrote to search for the value in the column A and select that row. How can I search for the first cell in column with value starting with for example letter B or first word of the value in that cell ?
Putting B* ( or Bill*) in the input box does not work....

 

[Fluff]

How about

Sub Button1_Click()


Application.ScreenUpdating = False
Sheets("Sheet1").Select

LR = Cells(Rows.Count, "A").End(xlUp).Row
st = InputBox("Type Keyword")
If st = "" Then Exit Sub
For j = 1 To LR
         code = Range("A" & j).Text
         If code Like st Then
            
             Range("G" & j).Select
             Application.Goto ActiveCell.EntireRow, True
            
            Exit For
         End If
 Next

  Application.ScreenUpdating = True
End Sub