работа с массивом

Option Strict Off
Option Explicit On
Friend Class Form1
    Inherits System.Windows.Forms.Form
    Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
        Dim a As Single
        Dim b As Single
        Dim c As Short
        Dim key As Boolean
        Dim k As Short
        Dim mass() As Short
        Dim itog() As Short
        Dim z As Short
        Dim i As Short
        Dim x As Short
        Dim v As Short
        Dim y As Short
        Dim q As Short
 
        key = False
        k = 0
        i = 0
        x = 1
        q = 0
        a = CSng(InputBox("Введите левую границу интервала"))
        b = CSng(InputBox("Введите правую границу интервала"))
        c = Fix(a)
        v = Fix(b)
        If a - b >= 0 Then
            MsgBox("Введены некорректные значения интервала - b должно быть больше a")
        End If
        If c <> a Then
            MsgBox("Ошибка ввода: дробное число")
        End If
        If v <> b Then
            MsgBox("Ошибка ввода: дробное число")
        End If
        If (a = c) And (b = v) Then
            key = True
            ReDim mass(z)
            z = 0
            y = 0
            For z = a To b
                If mass(z) Mod 2 <> 0 Then y = y + 1
            Next z
                End if
        If (y = 0) Then
            MsgBox("массив не содержит нечетных элементов")
            End
            ReDim itog(y)
            For x = a To b
                If mass(z) Mod 2 <> 0 Then k = k + 1
                mass(z) = itog(k)
                For q = 0 To k
                    x = x * itog(i)
                Next q
                MsgBox("произведение нечетных целых элементов интервала от " & " a " & " до " & b & " произведение равно " & x)
            Next
        End If
    End Sub
End Class

Option Strict Off
Option Explicit On
Friend Class Form1
    Inherits System.Windows.Forms.Form
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a, b As Single
        Dim i, x, y As Short
        x = 1
        a = CSng(InputBox("Введите левую границу интервала"))
        b = CSng(InputBox("Введите правую границу интервала"))
        If a - b >= 0 Then
            MsgBox("Введены некорректные значения интервала - b должно быть больше a")
            Exit Sub
        End If
        If a <> Fix(a) Then
            MsgBox("Ошибка ввода:a- дробное число")
            Exit Sub
        End If
        If b <> Fix(b) Then
            MsgBox("Ошибка ввода:b- дробное число")
            Exit Sub
        End If
 
        For i = a To b
            If i Mod 2 <> 0 Then y = y + 1
        Next i
 
        If y = 0 Then MsgBox("массив не содержит нечетных элементов") : Exit Sub
 
        For i = a To b
            If i Mod 2 <> 0 And i <> 0 Then x = x * i
        Next
 
        MsgBox("Произведение нечетных целых элементов интервала от " & a & " до " & b & " равно " & x)
 
    End Sub
End Class