Visual Basic - Duda de novato

Hola, antes que todos perdon sino va aca. La pregunta es muy facil siguiendo un tutorial hice una pequeña calculadora. Andubo lo mas bien, espues le quice agregar un if... para aprender pero no me funciona o sea hace lo que le pido cuando cumple la condicion y cuando no tampoco.
Y otra cosa si quecieran que cuando uno ponga una letra en lugar de un numero ¿como harian?
Muchas gracias

Private Sub Sumar_click()
Dim N1 As Integer
Dim N2 As Integer
If N1 < 10 Then
Resultado = "numero muy chico, no uses la calculadora"
Else
Resultado = Val(N1) + Val(N2)
End If
End Sub

Private Sub Restar_click()

Resultado = Val(N1) - Val(N2)

End Sub
Private Sub Multiplicar_click()

Resultado = Val(N1) * Val(N2)

End Sub
Private Sub Dividir_click()

Resultado = Val(N1) / Val(CN2)

End Sub
Private Sub nuevocalculo_click()

N1 = ""
N2 = ""
Resultado = ""

End Sub
Private Sub salir_click()

End

End Sub

Me olvide de poner es que si qucieran que cuando ponga una letra parezca "error no puso un numero" que usarian

Private Sub Sumar_click()
Dim N1 As Integer
Dim N2 As Integer
if not isnumeric(N1) then
resultado="introduzca un numero"
exit sub
elseif not isnumeric(N2) then
resultado="introduzca un numero"
exit sub
end if

If N1 < 10 Then
Resultado = "numero muy chico, no uses la calculadora"
Else
Resultado = Val(N1) + Val(N2)
End If
End Sub

Después de un Dim N1, N1 no tiene valor, está esperando que alguien le de valor, por lo que no es mayor ni menor que nada, las cosas hay que ponerlas en su sitio.
El Dim en General y para evaluar si es número o mayor en Change o LostFocus, KeyPress, etc.

es logico que debe darsele valor a las variables la duda la tiene el es solo en como verificar si es un numero

Hola.

Primero.

para sumas solo debes hacer lo siguiente

asumiendo que tienes 3 text
txet1 para n1
text2 para n2
text3 el ultimo para resultado
ademas tienes el boton de calculo,resultado.etc

en ese boton pones lo siguiente

dim n1
dim n2

if text1 ="" then
msgbox"Ingrese el primer numero"
text1.setfocus
elseif isnumeric(text1.text)= false then
msgbox"Error ingrese solo numeros"
text1.text = ""
text1.setfocus
elseif text2.text = "" then
msgbox"ingrese el segundo numero"
text2.setfocus
elseif isnumeric(text2.text)= false then
msgbox"Error ingrese solo numeros"
text2.text = ""
text2.setfocus
else

n1=text1.text
m2 = text2.text
text3 = val(n1)+val(n2)

end if

debiera funcionar de lo contrario me avisas por que no lo probe en vb