Mehrzeiligen Text in Message Box
Jenny
könnt Ihr mir sagen, wie ich in folgendem Code der Message Box einen mehrzeiligen Text definieren kann ?
Statt einer bräuchte ich hier mind. 3 Zeilen. :-)
Sub MsgZeit()
Const bytZeit As Byte = 10
Dim objWSH As Object, intMSG As Integer
Set objWSH = CreateObject("WScript.Shell")
intMSG = objWSH.Popup("This message will self destruct in " & bytZeit & " seconds!" & Space( _
10), bytZeit, "Classified data !")
Set objWSH = Nothing
End Sub
Jenny
Anzeige