' If you leave a Blank line in your text, it will leave a Blank line in the formatted output as well, like this:
'
' And, if you want to have a Breaker bar in your formatted output, leave 2 Blank lines.
'
'
' Each consecutive Blank line will add another Breaker bar in your formatted output.
'
'
'
'
' Multiple Breaker bars are displayed above.
'
'
'
' RandyGrams Comments - Left Align the above comments.
'Enter the number of spaces between the Border and the Text!
Option Explicit
Private lngBorderEnd As Long
Private lngCounter As Long
Private lngFieldEnd As Long
Private lngFieldSize As Long
Private lngLeftBorder As Long
Private lngLoop2 As Long
Private lngScreenWide As Long
Private lngSequentialCRLF As Long
Private lngSpaces As Long
Private strArray() As String
Private strBreakerBar As String
Private strOpenFile As String
Private strSave As String
Private strSideFormatBar As String
Private strTopFormatBar As String
'Define Constants
Private Const SM_CXSCREEN As Long = 0 'Width of screen
Private Const SW_MAXIMIZE As Long = 3
Private Declare Function DeleteFile Lib "kernel32.dll" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Sub InitCommonControls Lib "comctl32" ()