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
-
Phishers extract Millions from HMRC accounts..
by
Microfix
3 hours, 15 minutes ago -
Windows 10 22H2 Update today (5 June) says up-to-date but last was 2025-04
by
Alan_uk
5 hours, 7 minutes ago -
Thoughts on Malwarebytes Scam Guard for Mobile?
by
opti1
8 hours, 16 minutes ago -
Mystical Desktop
by
CWBillow
8 hours, 29 minutes ago -
Meta and Yandex secretly tracked billions of Android users
by
Alex5723
3 hours, 15 minutes ago -
MS-DEFCON 2: Do you need that update?
by
Susan Bradley
1 hour, 28 minutes ago -
CD/DVD drive is no longer recognized
by
WSCape Sand
23 hours, 42 minutes ago -
Windows 11 24H2 Default Apps stuck on Edge and Adobe Photoshop
by
MikeBravo
1 day, 2 hours ago -
North Face and Cartier customer data stolen in cyber attacks
by
Alex5723
1 day ago -
What is wrong with simple approach?
by
WSSpoke36
17 hours, 9 minutes ago -
Microsoft-Backed Builder.ai Set for Bankruptcy After Cash Seized
by
Alex5723
1 day, 12 hours ago -
Location, location, location
by
Susan Bradley
2 hours, 28 minutes ago -
Cannot get a task to run a restore point
by
CWBillow
1 day, 13 hours ago -
Frustrating search behavior with Outlook
by
MrJimPhelps
1 day, 4 hours ago -
June 2025 Office non-Security Updates
by
PKCano
2 days ago -
Secure Boot Update Fails after KB5058405 Installed
by
SteveIT
2 hours, 48 minutes ago -
Firefox Red Panda Fun Stuff
by
Lars220
2 days ago -
How start headers and page numbers on page 3?
by
Davidhs
2 days, 10 hours ago -
Attack on LexisNexis Risk Solutions exposes data on 300k +
by
Nibbled To Death By Ducks
1 day, 13 hours ago -
Windows 11 Insider Preview build 26200.5622 released to DEV
by
joep517
2 days, 19 hours ago -
Windows 11 Insider Preview build 26120.4230 (24H2) released to BETA
by
joep517
2 days, 19 hours ago -
MS Excel 2019 Now Prompts to Back Up With OneDrive
by
lmacri
2 days, 8 hours ago -
Firefox 139
by
Charlie
2 days, 1 hour ago -
Who knows what?
by
Will Fastie
1 day, 3 hours ago -
My top ten underappreciated features in Office
by
Peter Deegan
2 days, 19 hours ago -
WAU Manager — It’s your computer, you are in charge!
by
Deanna McElveen
13 hours, 34 minutes ago -
Misbehaving devices
by
Susan Bradley
1 day, 15 hours ago -
.NET 8.0 Desktop Runtime (v8.0.16) – Windows x86 Installer
by
WSmeyerbos
4 days, 1 hour ago -
Neowin poll : What do you plan to do on Windows 10 EOS
by
Alex5723
1 day ago -
May 31, 2025—KB5062170 (OS Builds 22621.5415 and 22631.5415 Out-of-band
by
Alex5723
4 days 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.