Visual Basic - Ayuda con este Problema Por favor

inicio programa

Numero = 0 'Una variable para en "Numero"

Suma = 0 'Una variable para  "Suma"

while Numero >= 0

  Ingrese un Numero :  Numero

  suma  = Suma +  Numero

wend

 Presento  "La suma es "  Suma

FIN

Private Sub Form_Load()

 Dim NumErO As Integer 'Declara la variable Numero

 Dim SumA As Integer 'Declara la variable Suma

 NumErO = 0 'Asigna el valor a la variable numero

 SumA = 0 'Asigna el valor a la variable suma

 Do While True 'Comienza un ciclo infinito

  NumErO = InputBox("Ingrese un numero: ") 'Solicita se capture un numero y lo guarda en numero

  If NumErO >= 0 Then 'Compara si el numero ingresado es mayor o igual a cero para sumarlo

   SumA = SumA + NumErO 'Suma el valor en caso de ser verdadera la condición

  Else 'en caso contrario

   Exit Do 'Sale del ciclo

  End If 'Termina la comparación

 Loop 'Termina el ciclo

 MsgBox "La suma es: " + CStr(SumA) 'Muestra la suma

 End 'Cierra la aplicación

End Sub