1. Linq solution
You can use
Enumerable.Any(TSource) Method (IEnumerable(TSource), Func(TSource, Boolean)) (System.Linq)[
^] to determine whether any element of a sequence satisfies a condition, but you have to make some changes in your code:
Dim a As String() = {"010.551", "008.880", "008.881", "009.701", _
"009.706", "009.925", "011.149", "011.150", "009.648"}
Dim b As String = "1"
Dim t As String = "010.551ASDJKA1"
Dim result = a.Any(Function(x) t.StartsWith(x) And t.EndsWith(b))
If result Then
End If
2. Non-Linq solution:
For Each s As String In a
Dim result As Boolean = t.StartsWith(s) And t.EndsWith(b)
If result Then
Console.WriteLine("TextBox1.Text starts with '{0}' and ends with '{1}'", s, b)
Exit For
End If
Next