formatting a msgbox

[Ned]

A msgbox displays at the end of my process. It does not
display the information neatly. Is there a way to change
the following code to (1) center the information on each
line in the msgbox and (2) break the information where I
want it to break instead of breaking automatically?

MsgBox "JE" & vID & " " & vDate & " " & LineCounter
& "lines " & Chr(13) & vResp & Chr(13) & " in " & Round
(vStop - vStart, 1) & " seconds"

Thanks for the help.

 

[Steve Garman]

You could try something like this:

Sub test()
MsgBox myPretty$("ABC " & Now, Date, "XXXXXXXXX", "", "byeeeee")
End Sub

Function myPretty$(ParamArray v() As Variant)
Dim i%, outPut$
outPut$ = v(0)
For i% = 1 To UBound(v)
outPut$ = outPut$ & vbNewLine & v(i%)
Next i%
myPretty$ = outPut$
End Function