Excel vba - loop med find 2 ord i text-streng i celle

Jeg har probelmer med et stykke vba kode, der som if ... then loop skal søge efter 2 sammenhængende ord inde i celle med tekst-streng. If ... then og loop fungerer, men jeg kan ikke få vba til at finde tekst inde i en tekststreng - koden finder kun hvis dete er cellen fulde værdi. Hvad gør jeg??
Her er koden:
Dim maxRow As Integer
Dim currentRow As Integer
Dim i As Integer
With Worksheets("Data")
    maxRow = .Range("A1").CurrentRegion.Rows.Count
    For i = maxRow To 1 Step -1
            If (.Cells(i, 18).Value = "et håb" And .Cells(i,31).Value = 6000) Then
                Worksheets("Output").Cells(i, 1).Value = "Hit"
            End If
        Next i
    End With