it appears that the pad function is incorrect. the "for" line adds one too many characters. it should be (length - text.length - 1). or am i missing something?
Sub Pad (Text As String, PadWith As String, Length As Int, Post As Boolean) As String
'Classic
Private Str As String = ""...