Public Funktion As String
Public msg As String             'Festlegung der Variable
 
Private Sub Form_Load()
Text1.Text = "Test Text"          'Inhalt der MSGBOX
'Funktion = "MsgBox"
msg = Text1.Text     'Zusammensetzen der Variablen
End Sub               
 
 
Private Sub Command1_Click()
MsgBox msg '<<< so rufst den Inhalt des Strings als Inhalt der MsgBox auf... 
' sollte also deine erwartungen erfüllen!
End Sub

MfG Lord_Duke
a.k.a. Loki

Design is 4 your Life and not for the others

________________________________________________________________
Windows XP Prof. SP 2 @ 2X 3,45 GHz P4 D ( 830) // DDR2 1024 MB //
GeForce 6600 GT Silent Pipe // 500 GB HDD