Is there a way in which the output from a dynamic array can be output to a message box? Thanks.
![]() |
Patch reliability is unclear. Unless you have an immediate, pressing need to install a specific patch, don't do it. |
SIGN IN | Not a member? | REGISTER | PLUS MEMBERSHIP |
-
Dynamic Array and Message Box (VBA/Excel/Y2k)
Home » Forums » AskWoody support » Productivity software by function » Visual Basic for Applications » Dynamic Array and Message Box (VBA/Excel/Y2k)
- This topic has 8 replies, 4 voices, and was last updated 17 years, 9 months ago.
Viewing 0 reply threadsAuthorReplies-
WSHansV
AskWoody LoungerJanuary 12, 2007 at 8:32 pm #1046779Yes, for example like this:
Sub Test()
Dim arr() As String
Dim itm As Variant
Dim strRes As String
ReDim arr(1 To 3)
arr(1) = “This”
arr(2) = “That”
arr(3) = “Other”
strRes = “Items:”
For Each itm In arr
strRes = strRes & vbCrLf & itm
Next itm
MsgBox strRes, vbInformation
End Subor like this:
Sub Test()
Dim arr() As String
Dim i As Integer
Dim strRes As String
ReDim arr(1 To 3)
arr(1) = “This”
arr(2) = “That”
arr(3) = “Other”
strRes = “Items:”
For i = LBound(arr) To UBound(arr)
strRes = strRes & vbCrLf & arr(i)
Next i
MsgBox strRes, vbInformation
End SubI assumed that your dynamic array has one dimension.
-
WSrory
AskWoody LoungerJanuary 13, 2007 at 1:25 am #1046809 -
WSHansV
AskWoody Lounger
-
-
Don Wells
AskWoody Lounger -
WSrory
AskWoody LoungerSeptember 12, 2007 at 12:12 am #1075087Not much different really:
Sub Test() Dim arr() As String Dim i As Integer Dim strRes As String ReDim arr(1 To 3, 1 To 2) arr(1, 1) = "This" arr(1, 2) = "or" arr(2, 1) = "That" arr(2, 2) = "or a bit of the" arr(3, 1) = "Other" arr(3, 2) = "!" strRes = "Items:" For i = LBound(arr, 1) To UBound(arr, 1) For j = LBound(arr, 2) To UBound(arr, 2) strRes = strRes & vbCrLf & arr(i, j) Next j Next i MsgBox strRes, vbInformation End Sub
-
Don Wells
AskWoody Lounger -
WSHansV
AskWoody LoungerSeptember 12, 2007 at 2:42 am #1075106You can use
Sub Test()
Dim arr() As String
Dim v As Variant
Dim strRes As String
ReDim arr(1 To 3, 1 To 2)
arr(1, 1) = “This”
arr(1, 2) = “or”
arr(2, 1) = “That”
arr(2, 2) = “or a bit of the”
arr(3, 1) = “Other”
arr(3, 2) = “!”
strRes = “Items:”
For Each v In arr
strRes = strRes & vbCrLf & v
Next v
MsgBox strRes, vbInformation
End Sub -
Don Wells
AskWoody Lounger
-
-
-
-
Viewing 0 reply threads -

Plus Membership
Donations from Plus members keep this site going. You can identify the people who support AskWoody by the Plus badge on their avatars.
AskWoody Plus members not only get access to all of the contents of this site -- including Susan Bradley's frequently updated Patch Watch listing -- they also receive weekly AskWoody Plus Newsletters (formerly Windows Secrets Newsletter) and AskWoody Plus Alerts, emails when there are important breaking developments.
Get Plus!
Welcome to our unique respite from the madness.
It's easy to post questions about Windows 11, Windows 10, Win8.1, Win7, Surface, Office, or browse through our Forums. Post anonymously or register for greater privileges. Keep it civil, please: Decorous Lounge rules strictly enforced. Questions? Contact Customer Support.
Search Newsletters
Search Forums
View the Forum
Search for Topics
Recent Topics
-
National scam day
by
Susan Bradley
51 minutes ago -
macOS Tahoe 26 the end of the road for Intel Macs, OCLP, Hackintosh
by
Alex5723
14 hours, 48 minutes ago -
Cyberattack on some Washington Post journalists’ email accounts
by
Bob99
16 hours, 8 minutes ago -
Tools to support internet discussions
by
Kathy Stevens
22 hours, 58 minutes ago -
How get Group Policy to allow specific Driver to download?
by
Tex265
7 hours, 14 minutes ago -
AI is good sometimes
by
Susan Bradley
23 hours, 20 minutes ago -
Mozilla quietly tests Perplexity AI as a New Firefox Search Option
by
Alex5723
13 hours, 23 minutes ago -
Perplexity Pro free for 12 mos for Samsung Galaxy phones
by
Patricia Grace
1 day, 23 hours ago -
June KB5060842 update broke DHCP server service
by
Alex5723
1 day, 22 hours ago -
AMD Ryzen™ Chipset Driver Release Notes 7.06.02.123
by
Alex5723
2 days, 2 hours ago -
Excessive security alerts
by
WSSebastian42
16 hours, 59 minutes ago -
* CrystalDiskMark may shorten SSD/USB Memory life
by
Alex5723
2 days, 11 hours ago -
Ben’s excellent adventure with Linux
by
Ben Myers
4 hours, 48 minutes ago -
Seconds are back in Windows 10!
by
Susan Bradley
1 day, 22 hours ago -
WebBrowserPassView — Take inventory of your stored passwords
by
Deanna McElveen
16 hours, 26 minutes ago -
OS news from WWDC 2025
by
Will Fastie
2 hours, 32 minutes ago -
Need help with graphics…
by
WSBatBytes
1 day, 6 hours ago -
AMD : Out of Bounds (OOB) read vulnerability in TPM 2.0 CVE-2025-2884
by
Alex5723
3 days, 3 hours ago -
Totally remove or disable BitLocker
by
CWBillow
2 days, 2 hours ago -
Windows 10 gets 6 years of ESU?
by
n0ads
2 days, 5 hours ago -
Apple, Google stores still offer China-based VPNs, report says
by
Nibbled To Death By Ducks
3 days, 13 hours ago -
Search Forums only bring up my posts?
by
Deo
22 hours, 33 minutes ago -
Windows Spotlight broken on Enterprise and Pro for Workstations?
by
steeviebops
4 days, 1 hour ago -
Denmark wants to dump Microsoft for Linux + LibreOffice
by
Alex5723
5 hours, 46 minutes ago -
How to get Microsoft Defender to honor Group Policy Setting
by
Ralph
4 days, 2 hours ago -
Apple : Paragon’s iOS Mercenary Spyware Finds Journalists Target
by
Alex5723
4 days, 12 hours ago -
Music : The Rose Room – It’s Been A Long, Long Time album
by
Alex5723
4 days, 13 hours ago -
Disengage Bitlocker
by
CWBillow
4 days, 3 hours ago -
Mac Mini M2 Service Program for No Power Issue
by
Alex5723
4 days, 15 hours ago -
New Win 11 Pro Geekom Setup questions
by
Deo
22 hours, 21 minutes ago
Recent blog posts
Key Links
Want to Advertise in the free newsletter? How about a gift subscription in honor of a birthday? Send an email to sb@askwoody.com to ask how.
Mastodon profile for DefConPatch
Mastodon profile for AskWoody
Home • About • FAQ • Posts & Privacy • Forums • My Account
Register • Free Newsletter • Plus Membership • Gift Certificates • MS-DEFCON Alerts
Copyright ©2004-2025 by AskWoody Tech LLC. All Rights Reserved.