В массиве содержится 10 случайных чисел. Выведите на экран все четные числа и отдельно нечетными числами Visual basic 6.0

Visual Basic: Dim Arr (1 To 10) As Single Dim a As String, b As String, c As String For i = 1 To 10 Arr (i) = Int (100 * Rnd - 50) a = a & Arr (i) & " " Select Case i Case 1, 3, 5, 7, 9 b = b & Arr (i) & " " Case Else c = c & Arr (i) & " " End Select Next i MsgBox a & Chr (13) & b & Chr (13) & c