Pass inputbox string to message box Run-time Error 13

[Nadine67]

Hello and thank you for any attention my post may receive.

I am trying to pass the results from a input box to a ws and message box.

It works fine with pasting to the ws, however returns and error for the message box.

Any help will be greatly appreciated.

Private Sub test()
Dim s As Worksheet
Dim ar, dar, colar As Variant, x%, k%, i%, j%, cac%, slr%
Dim tra2 As String, tra As String

Set s = Sheets("SIF Reference Hidden")
tra = InputBox("Enter Tag Number", "Transmitter Tag Entry")
colar = Array(4)
cac = UBound(colar)
slr = s.Cells(Rows.Count, 4).End(xlUp).Row
x = Application.CountIf(s.Cells(1, 2).Resize(slr), tra) ' input box
ar = s.Cells(1, 1).Resize(slr, 4).Value
ReDim dar(x - 1, cac)
k = 0
For i = 1 To slr
    If ar(i, 2) = tra Then
        For j = 0 To cac
            dar(k, j) = ar(i, colar(j))
        Next j
            k = k + 1
        Else
    End If
Next i
Sheets("test").Cells(4, 1).Resize(k, cac + 1).Value = dar

MsgBox "list: " & vbNewLine & vbNewLine & dar, vbInformation, "Welcome"
End Sub

 

[Michael M]

What does dar return when you hover over it in the message box line ??

 

[Nadine67]

Hello Michael

Currently I don't get to the Message Box because the code only gets as far as poulating the worksheet. 'dar' returns the array list of matches to the worksheet but not the message box.

If I enter ‘abc123’ in the input box, then ‘dar’ returns a list of results – a bit like a list of every FIND MATCH OFFSET instance.

The code returns the correct result on the worksheet, but I am unable to pass the list directly to a message box. I am only using the worksheet as a test for correctness, and ideally I would like to pass the resulting list directly to the message box.

 

[Michael M]

It appears you can't simply display the array like you have tried...it has to be built up
See this thread particularly post #2

https://www.mrexcel.com/forum/excel-questions/562103-display-array-msgbox.html

 

[Norie]

Nadine

What are the dimensions of the array you want to display in the message box?

 

[Nadine67]

Hello Norie

The array is the values in column four for each match found in column two.

Have a great day!