TextBox1.Text = abc
A14 = klmn abcdef sdfg thylll
A23 = xcd abcdef sd

below returns klmn abcdef sdfg thylll, which is the first match.
Sub test()
     'Label2.Caption = Sheets("Sheet1").Cells(Application.Match("*" & TextBox1.Text & "*", Sheets("Sheet1").Range("A1:A30"), 0), 1).Value
    MsgBox Sheets("Sheet1").Cells(Application.Match("*" & "abc" & "*", Sheets("Sheet1").Range("A1:A30"), 0), 1).Value
End Sub
so what do you mean by "extreme deviation"?