how to use dynamic array in vba msproject ?
and what is the wrong with the following code
Sub Macro26()
Dim t As Task
Dim ts As Tasks
Dim i As Integer
Dim b() As Task
Set ts = ActiveProject.Tasks
i = 0
For Each t In ts
If t.FreeSlack > 0 Then
b(i) = t
i = i + 1
Else
End If
Next t
End Sub