Problema ao fazer uma calculadora Simples

[Strifek]

Pessoal, tudo bem?

Eu estou com um certo problema, fui fazer uma calculadora simples no vb, apenas com os botões "Soma, subtração, divisão, multiplicação, resultado, e o clear...

Até então deu tudo certinho, o que acontece é, se eu não digito nenhum valor nela e apenas aperto o botão pra calcular, o programa trava. Teria alguma forma de ao clicar somente nesse botão, não acontecer nada até que um número seja digitado?

Já tentei deixar ela vazia colocando "empty" ou "Null" e não tive mudanças

Em baixo segue os códigos da mesma:

Public Class Form1

Dim val1, val2, type As Integer

Sub funsoma(ByVal somav1 As Integer, ByVal somav2 As Integer, ByRef rsoma As Integer)

rsoma = somav1 + somav2

End Sub

Sub funsubt(ByVal subtv1 As Integer, ByVal subtv2 As Integer, ByRef rsubt As Integer)

rsubt = subtv1 - subtv2

End Sub

Sub funmult(ByVal multv1 As Integer, ByVal multv2 As Integer, ByRef rmult As Integer)

rmult = multv1 * multv2

End Sub

Sub fundiv(ByVal div1 As Integer, ByVal div2 As Integer, ByRef rdiv As Integer)

rdiv = div1 / div2

End Sub

Private Sub igual_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles igual.Click

val2 = Val(result.Text)

If type = 1 Then

funsoma(val1, val2, result.Text)

ElseIf type = 2 Then

funsubt(val1, val2, result.Text)

ElseIf type = 3 Then

funmult(val1, val2, result.Text)

Else

fundiv(val1, val2, result.Text)

End If

End Sub

Private Sub soma_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles soma.Click

type = 1

val1 = Val(result.Text)

result.Clear()

End Sub

Private Sub subt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles subt.Click

type = 2

val1 = Val(result.Text)

result.Clear()

End Sub

Private Sub mult_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mult.Click

type = 3

val1 = Val(result.Text)

result.Clear()

End Sub

Private Sub div_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles div.Click

type = 4

val1 = Val(result.Text)

result.Clear()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

result.Clear()

End Sub

End Class

Agradeço a atenção!

Editado Dezembro 6, 2014 por Strifek

[Agostinho Paula Filho]

você pode mandar um print do erro para meu email?