Private Shared Sub ParallelFor(ByVal fromInclusive As Integer, ByVal toExclusive As Integer, ByVal body As Action(Of Integer)) 
    Dim index As Integer = fromInclusive 
        
    Task.Create(AddressOf ConvertedAnonymousMethod1, TaskCreationOptions.SelfReplicating).Wait() 
    
End Sub 

Delegate Sub TaskDelegate(ByRef index As Integer, ByVal toExclusive As Integer, ByVal body As Action(Of Integer))

Private Shared Sub ParallelFor(ByVal fromInclusive As Integer, ByVal toExclusive As Integer, ByVal body As Action(Of Integer)) 
   Dim index As Integer = fromInclusive 
   Dim MyDelegate As New TaskDelegate(<thisClassName>.DoWork)

   Task.Create(MyDelegate(index, toExclusive, body),_
               TaskCreationOptions.SelfReplicating).Wait() 

End Sub 

Private Shared Sub DoWork(ByRef index As Integer, ByVal toExclusive As Integer, ByVal body As Action(Of Integer))
    Dim i As Integer 
    While (i = Interlocked.Increment(index) - 1) < toExclusive 
        body(i) 
    End While 
End Sub