Как обратиться к неиндексированной переменной используя цикл?

        Dim value0 As Single
        Dim value1 As Single
        Dim value2 As Single
        Dim value3 As Single
        Dim value4 As Single

Dim value(5) as Single

Imports System.Runtime.InteropServices
Public Class Form1
    <StructLayout(LayoutKind.Sequential)> _
    Structure StructValue
        Public value0 As Single
        Public value1 As Single
        Public value2 As Single
        Public value3 As Single
        Public value4 As Single
    End Structure
 
    Dim el(100000) As StructValue
    Dim valResult(100000) As Single
    Dim rsa As New RefStructArr(Of StructValue, Single)(el) 'инициализация спец класса
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim sw As New System.Diagnostics.Stopwatch()
        sw.Start()
 
        'заполнение массива структур для демонстрации работы процедуры Procedure
        For i = 0 To rsa.Count - 1
            rsa(i, 0) = 10.34F
            rsa(i, 1) = 11.34F
            rsa(i, 2) = 12.34F
            rsa(i, 3) = 13.34F
            rsa(i, 4) = 14.34F
        Next
 
        ' вызовы процедуры Procedure и проверка результата её работы:
        Procedure(el, 0)
        Label1.Text = valResult(100000 - 1).ToString
        Procedure(el, 1)
        Label2.Text = valResult(100000 - 1).ToString
        Procedure(el, 2)
        Label3.Text = valResult(100000 - 1).ToString
        Procedure(el, 3)
        Label4.Text = valResult(100000 - 1).ToString
        Procedure(el, 4)
        Label5.Text = valResult(100000 - 1).ToString
 
        sw.Stop()
        Debug.Print(sw.ElapsedMilliseconds)
    End Sub
    Private Sub Procedure(ByRef elem() As StructValue, ByVal n As Integer)
        For i = 0 To rsa.Count - 1
            valResult(i) = rsa(i, n)
        Next
    End Sub
End Class
 
Public Class RefStructArr(Of TStruc, TElem)
    Private _gch As GCHandle
    Private _ptr As IntPtr
    Private _sizeElem As Integer
    Private _sizeStruct As Integer
    Private _arr() As TStruc
 
    Sub New(Arr() As TStruc)
        _arr = Arr
        _gch = GCHandle.Alloc(Arr, GCHandleType.Pinned)
        _ptr = _gch.AddrOfPinnedObject()
 
        _sizeElem = Marshal.SizeOf(GetType(TElem))
        _sizeStruct = Marshal.SizeOf(GetType(TStruc))
 
        If _sizeStruct Mod _sizeElem <> 0 Then
            Throw New ArgumentException()
        End If
    End Sub
 
    Default Public Property Item(Index As Integer, ElementIndex As Integer) As TElem
        Get
            Return CType(Marshal.PtrToStructure(_ptr + Index * _sizeStruct + ElementIndex * _sizeElem, GetType(TElem)), TElem)
        End Get
        Set(value As TElem)
            Marshal.StructureToPtr(value, _ptr + Index * _sizeStruct + ElementIndex * _sizeElem, False)
        End Set
    End Property
 
    Public ReadOnly Property ElementCount As Integer
        Get
            Return _sizeStruct \ _sizeElem
        End Get
    End Property
 
    Public ReadOnly Property Count As Integer
        Get
            Return _arr.Length
        End Get
    End Property
 
    Public Sub Free()
        _gch.Free()
        _arr = Nothing
        _sizeElem = 0
        _sizeStruct = 0
    End Sub
 
End Class

Imports System.IO
Imports System.Runtime.InteropServices
 
Module Module1
 
    Structure MyData
        Dim Value0 As Single
        Dim Value1 As Single
        Dim Value2 As Single
        Dim Value3 As Single
        Dim Value4 As Single
    End Structure
 
    Sub Main()
        Dim t As MyData
        With t
            .Value0 = 2.0
            .Value2 = 5.1
            .Value4 = 4.0
        End With
 
        ' Структуру в массив
        Dim bytes() As Single = GetSingleBytes(t)
 
        ' Распечатать
        For i As Integer = 0 To bytes.Length - 1
            Console.WriteLine("Value{0} содержит {1}", i, bytes(i))
        Next
    End Sub
 
    Function GetSingleBytes(data As Object) As Single()
        Const SingleVariableLength As Integer = 4
 
        Dim buffer As Single() = New Single(Marshal.SizeOf(data) \ SingleVariableLength - 1) {}
 
        Dim pMem As IntPtr = Marshal.AllocHGlobal(buffer.Length * SingleVariableLength)
 
        Marshal.StructureToPtr(data, pMem, False)
        Marshal.Copy(pMem, buffer, 0, buffer.Length)
 
        Marshal.FreeHGlobal(pMem)
 
        Return buffer
    End Function
 
End Module