Dim Steuerelement As Control
 
Private Sub Command1_Click()
Set Steuerelement = txtText
End Sub
 
Private Sub cmdText_Click()
' ### Überprüfung ob Steuerelement ein Control beinhaltet, oder noch nicht ???
End Sub

____________________________________