Help declaring a variable

[sharky12345]

Can someone please tell me how I should be declaring the following?

With Me.ListBox1For i = 0 To .ListCount - 1
If .Selected(i) Then
ReDim Preserve arrContacts(cnt)
arrContacts(cnt) = .List(i, 0)
cnt = cnt + 1


End If
Next i
End With


If cnt > 0 Then
Students = Join(arrContacts, "; ")
End If

The listbox items are all numeric numbers but joined with a semi-colon so they can be used in an email address box. I've tried declaring as a String but it throws an error saying 'expected array'.

 

[sharky12345]

Sorted now - please disregard!