inputbox

At first sorry my bad bad english :)
Why this does not work? it work when merkkijono = InputBox("Mitä haetaan?") is like merkkijono= cells(1,11) but not when it is like this ->

Private Sub CommandButton2_Click()
Dim merkkijono As String
Dim i, j As Integer
merkkijono = InputBox("Mitä haetaan?")
i = 2

For j = 2 To 99
If merkkijono <> Cells(i, 1) Then
i = i + 1
Else
Taul3.Rows(i).Font.Bold = True
End If
Next j
End Sub