Sub xoTest_CustomConfig()
    Dim element
    Dim folder
    Dim regex

    Set folder = Application.GetObject("Driver1")
    Set regex = CreateObject("VBScript.RegExp")

    regex.Global = True
    regex.IgnoreCase = True
    regex.Pattern = ".*UPD"

    Sweep folder

    For Each element In arrayList
        ' MsgBox element

        If (regex.Test( element )) Then
            MsgBox element
        End If
    Next
End Sub

Public arrayList
Set arrayList = CreateObject("System.Collections.ArrayList")

Sub Sweep( folder )
    Dim obj

    For Each obj In folder
        Select Case TypeName( obj )
        Case "IOFolder"
            Sweep obj
        Case "IOTag", "IOBlock"
            arrayList.Add obj.Name
        Case Else
            ' TODO:
        End Select
    Next

End Sub