Resizing A Message Box

Im using this code for an option to run a macro or not, it works just fine, is there a way to resize the box so the message is on one line straight across and not wrapped? Thanks!

Public Sub Unhide2()


CarryOn = MsgBox("--- FIRST TIME USE ONLY ---, CONTINUING WILL ERASE ALL PREVIOUS DATA ENTERED! --- Do you wish to continue?", vbYesNo)
If CarryOn = vbYes Then
'put rest of code here

    Application.ScreenUpdating = False

Set PreviousSheet = ActiveSheet

With Worksheets("Set-Up")
    .Visible = True
    .Select
    .Range("A1").Select
End With
Application.ScreenUpdating = True
End If
End Sub