Excel 2013>VBA>Match>Wildcard

[mancubus]

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"?

[aworthey]

Regarding "extreme deviation," Suppose the string I want to record in my database is "Abunayyan" but the input is "A Abunayyan Trading Company"...how would I search my list of 30 companies and match to "Abunayyan" so that I can record that text in my database?