errore nel leggere testo da un controllo creato dinamicamente

[jabjoint]

Ciao, ho creato un controllo dinamicamente cosi':

friend WithEvents tBmaggiore As System.Windows.Forms.TextBox

 Private Sub tBmaggiore_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tBmaggiore.Click

Msgbox "premuto"

 End Sub

sub crea()
        Dim tbmaggiore As New Control()
        tbmaggiore = New TextBox()
        tbmaggiore.Text = "100"
        tbmaggiore.Location = New Point(10, 10)
        Me.Controls.Add(tbmaggiore)
        AddHandler tbmaggiore.Click, AddressOf tBmaggiore_Click
        controlloCreato=true
end sub

sub leggi()
       if controlloCreato=true then
         msgbox tbmaggiore.text
       end if
end sub

Quando chiamo la procedura leggi dopo avere creato il controllo ottengo un errore che mi dice:
Riferimento a un oggetto non impostato su un'istanza di oggetto.

Teoricamente l' ho creato l' oggetto, dove sbaglio?