Dim i As Integer

For i = 0 To UBound(myArray)
    If Not IsNothing(myArray[i]) Then
        myArray[i] = Nothing
        Exit For
    End If
Next i