Buda hangisi boşsa onun adını mesaj verir ve o textboxa odaklanır.
Bu arada @berduş hocamıza katılıyorum artık öğrenme zamanınız geldi

Dim arr, i As Byte, say As Byte

    Dim arr2()

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

    

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

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

            say = say + 1

            ReDim Preserve arr2(say)

            arr2(say) = arr(i)

        End If

    Next

    

    If say > 0 Then

        For i = 1 To UBound(arr2)

            Me.Controls(arr2(i)).SetFocus

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

            Exit Sub

        Next

    Else

        MsgBox "Hepsi bos"

    End If

    

    Erase arr: Erase arr2