Someone

Option Explicit
Private intAmount As Integer
Private intRandomNumbers As Integer
Private intRan As Integer
Private strEvenOdd(1 To 50) As String


Private Sub cmdGenerate_Click()
    intAmount = 1
    
    Do While intAmount <= 50
        intRan = Int(100 * Rnd + 1)
        If intAmount Mod 2 = 0 Then
            If intRan Mod 2 <> 0 Then
                intAmount = intAmount + 1
                strEvenOdd(intAmount) = intAmount & "            " & intRan
            End If
        Else
            If intRan Mod 2 = 0 Then
                intAmount = intAmount + 1
                strEvenOdd(intAmount) = intAmount & "            " & intRan
            End If
        End If
        intRandomNumbers = 1 + intRandomNumbers
    Loop
    
    lblLabel.Caption = "It took " & intTotal & " random number generations to fill even elements in even indexes and odd elements in odd indexes of an array size 50."

    intAmount = 1
    
    Do While intAmount <= 50
        lstList.AddItem strEvenOdd(intAmount)
        intAmount = intAmount + 1
    Loop
    
End Sub

Private Sub Form_Load()
    Randomize
End Sub

Private Sub cmdDone_Click()
    Unload Me
End Sub