Visual Basic 6 - Dove sbaglio?

Salve a tutti, in questo momento sto scrivendo un piccolo programmino che in pratica schiacciando dei button compaiono dei numeri su una textbox e se i numeri che ho schiacciato sono ad esempio 554 allora un'altro butto che era disabilitato ora si abiliterà...
Il problema è che se io schiaccio quei numeri (554), la button non si abilita...
Ora vi posto il codice:

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If TextBox1.Text = "5 & "5" & "4" then
Button1.Enabled = True
End If
End Sub
-----------------------------------------------------------------------------------------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = TextBox1.Text & "1"
End Sub
-----------------------------------------------------------------------------------------
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = TextBox1.Text & "2"
End Sub
-----------------------------------------------------------------------------------------
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Text = TextBox1.Text & "3"
End Sub
-----------------------------------------------------------------------------------------
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox1.Text = TextBox1.Text & "4"
End Sub
-----------------------------------------------------------------------------------------
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox1.Text = TextBox1.Text & "5"
End Sub
-----------------------------------------------------------------------------------------
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
TextBox1.Text = TextBox1.Text & "6"
End Sub
-----------------------------------------------------------------------------------------
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
TextBox1.Text = TextBox1.Text & "7"
End Sub
-----------------------------------------------------------------------------------------
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
TextBox1.Text = TextBox1.Text & "8"
End Sub
-----------------------------------------------------------------------------------------
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
TextBox1.Text = TextBox1.Text & "9"
End Sub
-----------------------------------------------------------------------------------------
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
TextBox1.Text = TextBox1.Text & "a"
End Sub
-----------------------------------------------------------------------------------------
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
TextBox1.Text = TextBox1.Text & "0"
End Sub
-----------------------------------------------------------------------------------------
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
TextBox1.Text = TextBox1.Text & "b"
End Sub
-----------------------------------------------------------------------------------------
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
Close()
End Sub
-----------------------------------------------------------------------------------------
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub
-----------------------------------------------------------------------------------------
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
TextBox1.Text = ""
End Sub
End Class


Ps. grazie in anticipo

Salve intanto ti dico ke hai postato nella parte del forum sbagliato il codice che hai postato e VB.NET e non VB 6.

Poi non si capisce tanto che vuoi fare però da quello ke si vede ogni volta ke premi una button alla textbox aggiungi un valore ma se vuoi controllare il risultato della textbox inserisci un evento change della text ke al momento della modifica della text controlla se è il numero ke interessa a te....poi nell'evento load hai messo il controllo ke ti abilita un pulsante..ma metti di default il valore 554? poi per controllare puoi mettere anke

If TextBox1.Text = "554" then
Button1.Enabled = True
End If

Ciao fammi sapere

1) Il codice è più bello a vedersi dentro ai tag [ code ][ /code ] (senza spazi)

2) Essendo un problema riguardante il vb.net chiudo