Here some actual code:
MsgBox "You will need to move this msgbox out of " & vbCrLf & _
"the way to see the pbar in action." & vbCrLf & vbCrLf & _
"The timer bar can run independent " & vbCrLf & _
"of your code. You can also set " & vbCrLf & _
"the max value of the bar, and in. " & vbCrLf & _
" a code loop increment the bar by " & vbCrLf & _
" one increment each time." & vbCrLf & _
"If your loop is to 1000, then" & vbCrLf & _
"simply set the pmax = 1000, and" & vbCrLf & _
" call pinc for each loop. The amount" & vbCrLf & _
"of progress shown in bar is automatic" & vbCrLf & _
"" & vbCrLf & _
" Click ok to stop", vbInformation, "Progress bar demo"