Buda dictionary ile gördüğünüz gibi her yoldan oluyor abey.

Dim arr, i As Byte

    Dim scr As Object

    arr = Array("TextBox1", "TextBox2")

    

    Set scr = CreateObject("Scripting.Dictionary")

    For i = LBound(arr) To UBound(arr)

        If Me.Controls(arr(i)) <> "" Then

            scr(CStr(Me.Controls(arr(i)).Name)) = scr(CStr(Me.Controls(arr(i)).Name))

        End If

    Next

    

    If scr.Count > 0 Then

        For i = 0 To scr.Count - 1

        MsgBox scr.Keys()(i)

            Me.Controls(scr.Keys()(i)).SetFocus

            MsgBox "Dolu Textboxlar asagida:" & vbNewLine & "        " & Me.Controls(scr.Keys()(i)).Name

            Exit Sub

        Next

    Else

        MsgBox "Hepsi bos"

    End If

    

    Erase arr: Set scr = Nothing