For Each IEnumerator Extension

public static IEnumerator GetEnumerator(this System.ValueTuple<int, int, int> range)
{
    int start = range.Item1;
    int end = range.Item2;
    int step = range.Item3;

    if (step > 0)
        for (int i = start; i <= end; i += step)
            yield return i;
    else
        for (int i = start; i >= end; i += step)
            yield return i;
}

foreach (int i in (-10, 10, 3))
    Console.WriteLine(i);

Imports Tools.Extensions

Public Module Program
  Sub Main()
    For Each i In (1, 10, 2)
      Console.WriteLine(i)
    Next
  End Sub
End Module

Imports System
Imports System.Runtime.CompilerServices
Imports System.Collections
				
Public Module Module1
	Public Sub Main()
		For Each i in (1, 10, 2)
			Console.WriteLine(i)
		Next
	End Sub
End Module

Public Module Tools
    <Extension>
	Public Iterator Function GetEnumerator(range As ValueTuple(Of Integer, Integer, Integer)) As IEnumerator
        Dim start = range.Item1
        Dim [end] = range.Item2
        Dim [step] = range.Item3

        If ([step] > 0) Then
            For i = start To [end] Step [step]
                Yield i
            Next
        Else
            For i = start To [end] Step [step]
                Yield i
            Next
        End If
    End Function

End Module