Dim myRegex As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex("A.A")
Dim s As String = "safaA1Aeg56456AaA645665AwAwerger"
Dim mc As System.Text.RegularExpressions.MatchCollection = myRegex.Matches(s)
Dim i As Integer
Dim sResult(mc.Count - 1) As String
For i = 0 To mc.Count - 1
sResult(i) = mc.Item(i).Value
Next
Dim StrArray() As String = {"ABCDEFG", "HIJKLMNOP"}
Dim FindThisString As String = "JKL"
Dim StrNumber As Integer
Dim StrIndex As Integer
For StrNumber = 0 To StrArray.Length - 1
StrIndex = StrArray(StrNumber).IndexOf(FindThisString)
If StrIndex >= 0 Then Exit For
Next StrNumber