inputbox excel

[dominique9374]

Hola
estoy aciendo una aplicacion excel
en la cual
se abre una inputbox
tengo que entrar un numero, puede ser positivo o negativo sin limite
guardo ese numero en una celda y vuelvo a la input box para otro numero
para salir de este bucle introdusco fin
tengo un codigo tipo

Private Sub CommandButton1_Click()
Dim celda As Range
Set celda = Range("A1")
10:
numero = InputBox("numero")
If numero = "fin" Then
GoTo fin
Else: celda.Value = numero
Set celda = celda.Offset(1, 0)
GoTo 10
End If
fin:
End Sub
luego calculo la suma de la columna A
tengo que comprobar que lo que entro sea un numero, o fin
si pongo Dim numero as integer no puedo entrar fin ni cancel
pero si dejo dim numero
cuando me equivoque y ponga otra cosa que un numero me falla la suma

pregunta 1
como puedo comprobar que llo que entro sea un numero, o "fin"
pregunta 2
si pongo dim numero as integer como puedo parrar el bucle sbiendo que el numero entrado puede ser positivo, negativo o nulo
espero haberme explicado bien
gracias
dominique