Sub search_in_Array()
    Dim MyArray(2) As String
    MyArray(0) = "Value1"
    MyArray(1) = "Value2"
    MyArray(2) = "Value3"
    Dim searchTerm As String
    
    S = "Value2"
    searchTerm = "Value2"
    'Position in Array
    pos = Application.Match(S, MyArray, False)
    MsgBox pos
    If UBound(Filter(MyArray, searchTerm)) >= 0 And searchTerm <> "" Then
        MsgBox ("Search Term SUCCESSFULLY located in the Array")
    Else
        MsgBox ("Search Term could NOT be located in the Array")
    End If
End Sub


Sub Test()
    Dim MyArray As Variant, mbr As String, n As Integer
    ' MyArray = [{"Bread", "Milk", "Tea", "Biscuits"}]
    MyArray = Range("A1:G1").Resize(1, 7)
    mbr = "Milk"
    On Error Resume Next
    n = Application.Match(mbr, MyArray, 0)
    On Error GoTo 0
    MsgBox n
theEnd:
    MyArray = ""
End Sub
Private Sub Main()

    Dim Rows_Array() As String
    Dim i As Integer, j As Integer

    Rows_Array() = Split("5 9 14 19 25 29 34 66 67 68 72 88 101 102 103 105 118 119 120 123 126 129 144 146 149", " ")
    
    For i = LBound(Rows_Array()) To UBound(Rows_Array())
        j = Rows_Array(i)
        Debug.Print j         'This is where my code actually does stuff with j
    Next i
    
End Sub
Dim Films(1 To 5) As String
Films(1) = "Lord of the Rings"
Films(2) = "Speed"
Films(3) = "Star Wars"
Films(4) = "The Godfather"
Films(5) = "Pulp Fiction"
MsgBox Films(4)

Sub Array_Example()
    Dim BigGuy(1 To 1048576, 1 To 1) As Long
    Dim I As Long
    For I = 1 To 1048576
        BigGuy(I, 1) = I
    Next
    Range("B:B") = BigGuy
End Sub