Problema ao limpar calculadora (VB.Net)

Public Class Calculadora
    Dim numero As Double
    Dim operador As String
    Dim resultado As Double
    Dim feito As Boolean
    Private Sub Button0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button0.Click, Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click, Button8.Click, Button9.Click
        If feito Then
            TextBox1.Clear()
            feito = False
        End If
        TextBox1.Text = TextBox1.Text & sender.text
    End Sub

    Private Sub Buttonigual_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonigual.Click, ButtonC.Click, Buttondiv.Click, Buttondividir.Click, Buttonexp.Click, Buttonmais.Click, Buttonmenos.Click, Buttonvezes.Click, Buttonmod.Click, Buttonporcen.Click, Buttonsqrt.Click
        numero = Val(TextBox1.Text)
        If sender.text = "=" Or operador <> "" Then
            Select Case operador
                Case "+"
                    resultado = resultado + numero
                Case "-"
                    resultado = resultado - numero
                Case "/"
                    resultado = resultado / numero
                Case "*"
                    resultado = resultado * numero
                Case "Sqrt"
                    resultado = Math.Sqrt(resultado)
                Case "MOD"
                    resultado = resultado Mod numero
                Case "DIV"
                    resultado = resultado \ numero
                Case "EXP"
                    resultado = resultado ^ numero
                Case "%"
                    resultado = (resultado * numero) / 100
                Case "C"
                    numero = 0
                    resultado = 0
                    TextBox1.Text = ""
            End Select
            TextBox1.Text = resultado
            feito = True
            operador = sender.text
        Else
            operador = sender.text
            resultado = numero
            TextBox1.Clear()
        End If
    End Sub