OK the following code should do the job:
Option Explicit
Sub NegativeEvenIneteger()
Dim Sum As Double
Dim NumberInput As Integer
Dim x As Double
Dim NumberError As Boolean: NumberError = True
NumberInput = InputBox("Please Enter a Negative Even Integer")
If IsNumeric(NumberInput) Then 'test for number
If Not NumberInput Like "*.*" Then 'test for decimal
If NumberInput < 0 Then 'test for negative
If NumberInput Mod 2 = 0 Then
Sum = 0
For x = NumberInput To 98 Step 2
Sum = Sum + x
Next
NumberError = False
End If
End If
End If
End If
If NumberError Then
MsgBox "not a valid input"
Else
MsgBox ("This equals " & Sum) & vbCrLf & ("based on the inputted number of ") & NumberInput
End If
End Sub