Attribute VB_Name = "Sample6"
Option Explicit

Sub MyMessage()
    MsgBox "All processes completed successfully. " & Chr(13) _
    & "Now connect an external storage device " & Chr(13) _
    & "to your computer. The following procedure " & Chr(13) _
    & "will copy the workbook file to the attached device."
End Sub


Sub MyMessage2()
    MsgBox "All processes completed successfully. " & Chr(10) & Chr(10) _
    & "Now connect an external storage device " & Chr(13) & Chr(13) _
    & "to your computer. The following procedure " & Chr(10) & Chr(10) _
    & "will copy the workbook file to the attached device."
End Sub