Problème de dégobage en VB 2010

Bonsoir,
J'ai écris un programme réalisant une calculatrice, mon programme est juste mais quand je lance le dégobage un message s'affiche: visual studio ne peut pas lancer le dégobage car la cible du dégobage ...... est manquante...etc ( vous connaissez ce message ) comment résoudre ce problème?
voila mon code:

Module Module2
Dim m1 As Double
m2 as double
Dim TextBox1 As Object

Sub OperationsArithmetique(ByVal bout As Button)
Form1.m1 = Val(TextBox1.Text)
Form1.op = bout.Text
Form1.TextBox1.Text = ""

End Sub
End Module

Sub calcul()
Select Case Form1.op
Case "+"
Form1.TextBox1.Text = m1 + Val(TextBox1.Text)
Case "-"
Form1.TextBox1.Text = m1 - Val(TextBox1.Text)
Case "x"
Form1.TextBox1.Text = m1 * Val(TextBox1.Text)
Case "/"
Form1.TextBox1.Text = m1 / Val(TextBox1.Text)
Case "%"
Form1.TextBox1.Text = m1 % Val(TextBox1.Text)

End Select
End Sub
Sub resultat()
TextBox1.text = Val(form1.textbox1.text & butt.text)
End Sub
Sub affichage()
Select Case Form1.nombre
Case "1"
Form1.textbox1.text = 1
Case "2"
Form1.textbox1.text = 2
Case "3"
Form1.textbox1.text = 3
Case "4"
Form1.textbox1.text = 4
Case "5"
Form1.textbox1.text = 5
Case "6"
Form1.textbox1.text = 6
Case "7"
Form1.textbox1.text = 7
Case "8"
Form1.textbox1.text = 8
Case "9"
Form1.textbox1.text = 9
Case "0"
Form1.textbox1.text = 10
Case "."
Form1.textbox1.text=.

End Select
End Sub