Программирование в excele

Сумму неотрицательных чисел и наибольшее из таких чисел(Надо сделать так чтобы при вводе отрицательных чисел программа писала ‘нужных чисел нет‘
Option Explicit
Sub pr_4()
Dim N As Variant
Dim X As Integer
Dim i As Integer
Dim Sum As Long
Dim maxX As Integer
Dim maxN As Integer
Dim priznak As Boolean
priznak = False
Do
Do
N = InputBox("Введите кол-во чисел в последовательности ")
Loop Until IsNumeric(N)
Loop Until N = CInt(N)
For i = 1 To N Step 1
Do
Do
X = InputBox("Введите целое число №" & i)
Loop Until IsNumeric(X)
Loop Until X = CInt(X)
If X > 0 Then
Sum = Sum + X
End If
If priznak = False Then
maxX = X
maxN = i
priznak = True
ElseIf X > maxX Then
maxX = X
maxN = i
End If
Next i
If priznak = True Then
MsgBox "Наибольшее число = " & maxX & "его № = " & maxN & "сумма чисел в последовательности =" & Sum
Else
MsgBox "Нужных чисел нет"
End If
End Sub