Débutant vb , calculette avec division impo

Bonjour,
Je recherches un petit peu d'aide sur la réalisation de ma calculatrice
celle-ci est complète et fonctionne hormis la division..Je ne trouves pas l'erreur si vous pouviez me donner une piste,un coup de main,une quelconque aide je vous en remercie d'avance...

voici mon code :
Dim nb2 As String
Dim nb1 As String
Dim premiernb As Boolean
Dim chaine As String
Dim signe As String
Dim longueur As Integer

Private Sub BT_0_Click()
ajouterChiffre ("0")
End Sub

Private Sub BT_1_Click()
ajouterChiffre ("1")
End Sub

Private Sub BT_2_Click()
ajouterChiffre ("2")
End Sub

Private Sub BT_3_Click()
ajouterChiffre ("3")
End Sub

Private Sub BT_4_Click()
ajouterChiffre ("4")
End Sub

Private Sub BT_5_Click()
ajouterChiffre ("5")
End Sub

Private Sub BT_6_Click()
ajouterChiffre ("6")
End Sub

Private Sub BT_7_Click()
ajouterChiffre ("7")
End Sub

Private Sub BT_8_Click()
ajouterChiffre ("8")
End Sub

Private Sub BT_9_Click()
ajouterChiffre ("9")
End Sub

Private Sub BT_diviser_Click()
signeclick ("diviser")
End Sub

Private Sub BT_effacer_Click()
longueur = Len(chaine)
chaine = Left(chaine, (longueur - 1))
If (premiernb = True) Then
nb1 = chaine
TB_resultat = chaine
Else
nb2 = chaine
TB_resultat = chaine
End If
End Sub

Private Sub BT_egale_Click()
Select Case (signe)
Case "ajouter":
TB_resultat = CDbl(nb1) + CDbl(nb2)
Case "soustraire":
TB_resultat = (nb1) - (nb2)
Case " diviser ":
If nb2 = 0 Then
MsgBox ("La division par 0 est impossible")
Else
TB_resultat = (CDbl(nb1)) / (CDbl(nb2))
End If
Case "multiplier":
TB_resultat = (nb1 * nb2)
Case "puissance":
TB_resultat = (nb1) ^ (nb2)
End Select
BT_plus.Enabled = True
BT_moins.Enabled = True
BT_multiplier.Enabled = True
BT_diviser.Enabled = True
BT_plus.Enabled = True
BT_puissance.Enabled = True
BT_racine.Enabled = True
BT_racubique.Enabled = True
BT_inverse.Enabled = True
nb1 = TB_resultat
nb2 = 0

End Sub

Private Sub BT_fermer_Click()
Unload Me
End Sub

Private Sub BT_inverse_Click()
chaine = 1 / (chaine)
TB_resultat = chaine
End Sub

Private Sub BT_moins_Click()
signeclick ("soustraire")
End Sub

Private Sub BT_multiplier_Click()
signeclick ("multiplier")
End Sub

Private Sub BT_plus_Click()
signeclick ("ajouter")
End Sub

Public Sub calcul()
End Sub

Private Sub BT_puissance_Click()
signeclick ("puissance")
End Sub

Private Sub BT_racine_Click()
chaine = Sqr(chaine)
TB_resultat = chaine
End Sub

Private Sub BT_racubique_Click()
chaine = chaine ^ (1 / 3)
TB_resultat = chaine
End Sub

Private Sub BT_signe_Click()
ajouterChiffre ("-")


End Sub

Private Sub BT_virgule_Click()
ajouterChiffre (",")
End Sub

Private Sub CMD_effacertout_Click()
nb2 = 0
nb1 = 0
premiernb = True
chaine = ""
signe = ""
TB_resultat = ""
BT_plus.Enabled = True
BT_moins.Enabled = True
BT_multiplier.Enabled = True
BT_diviser.Enabled = True
BT_plus.Enabled = True
BT_puissance.Enabled = True
BT_racine.Enabled = True
BT_racubique.Enabled = True
BT_inverse.Enabled = True
End Sub

Private Sub Form_Load()
nb2 = 0
nb1 = 0
premiernb = True
chaine = ""
signe = ""
TB_resultat = ""
End Sub

Private Sub ajouterChiffre(chiffreajouter As String)
chaine = chaine + chiffreajouter
If (premiernb = True) Then
nb1 = (chaine)
TB_resultat = chaine
Else
nb2 = (chaine)
TB_resultat = chaine
End If
End Sub

Private Sub signeclick(signeajouter As String)
premiernb = False
chaine = ""
TB_resultat = ""
signe = signeajouter
BT_plus.Enabled = False
BT_moins.Enabled = False
BT_multiplier.Enabled = False
BT_diviser.Enabled = False
BT_plus.Enabled = False
BT_puissance.Enabled = False
BT_racine.Enabled = False
BT_racubique.Enabled = False
BT_inverse.Enabled = False
End Sub

Voilà ,étant donné que je suis débutant l'erreur ne dois pas ëtre des plus coriace
merci d'avance
gab