Public msg As String 				‘ Festlegung der Variable
 
Private Sub Form_Load()
Text1.Text = "Test Text" 			‘Inhalt der MSGBOX
msg = "msgbox(" & Text1.Text & ")" 	‘Zusammensetzen der Variablen
End Sub					
 
 
Private Sub Command1_Click()
Msg						‚Ausführen der Variablen…
End Sub