Вводится последовательность натуральных чисел. Найти номер первого из четных и сумму чисел, стоящих перед ним. - VB

Dim Strinput() As String = Split(inputbox("Введите последовательность через пробел"))
        Dim i As Integer
        Dim ch As Integer
        Dim Sum as Integer
For i = 0 To Strinput.Length - 1
    If CInt(Strinput(i)) Mod 2 = 0 Then
    Ch = i + 1
    Exit For
    Else
         Sum =  Sum +  CInt(Strinput(i))
    end if
Next
if Ch > 0 then
msgbox (" Номер первого из четных чисел " & Ch & " Cумма чисел, стоящих перед ним " & Sum)
Else
msgbox ("Четные числа отсутствуют")
end if