well it is not a bug, but a feature, The width of the box is computed from the content text width. you can do that as workaround Message.Title = "Delete an appointment" If Message.Warning("Delete" & String(40, " "), "Yes", "No") = 2 Then Return