Dynamisches Formular

Ich habe ein Problem, das folgendermaßen aussieht:

Ich habe ein Formular in das beim Clicken eines CommandButton
ein neuer CommandButton eingefügt werden.
Das sieht so aus:

dim Transport as Control
set Transport = Controls.add("Forms.CommandButton.1")
Transport.Name= "TransportBtn"

Das Problem ist, dass man mit dem Button nichts auslösen kann.

Normalerweise steht ja in dem Code vom Formular:

Private Sub TransportBtn_Click()
MsgBox("Test") 'Nur so zur Demo
End Sub

Aber beim Clicken des Button tut sich garnichts,
also was mache ich falch??
Bitte helft mir.