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...