Problème avec le textbox

Je programme une petite calculatrice et je veux exploiter l'affichage de textbox en la reliant à un bouton avec le code suivant:
Code:

1 2 3 4 5 6 7 8 Private Sub btnEgale_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEgale.Click 'pour calculer l'opération qui se trouve dans txtAffichage et la remettre dans text box Dim Resultat As Double Resultat = CType(txtAffichage.Text, Double) txtAffichage.Text = Resultat.ToString End Sub
biensur le txtAffichage et le nom de mon textbox
en bref je tape par exemple 4+5 et j'ai un message que je ne peux pas la convertir en double avec la requête d'attribution à la variable:

Code:

Resultat = CType(txtAffichage.Text, Double)

merci de me donner une solution