No se mucho de VB, pero puedes probar esto:
Saludos.
Código (vb) [Seleccionar]
Private Sub Suma()
Dim num1, num2, resultado As Integer
num1 = Val(TxtNum1.Text)
num2 = Val(TxtNum2.Text)
resultado = Val(TxtNum1.Text) + Val(TxtNum2.Text)
TxtResultado.Text = resultado
End Sub
Saludos.