Public Function MakeStringLength(ByVal str As String,
                                ByVal Length As Integer, _
                                Optional ByVal PaddingChar As Char = " "c) As _
                                String
 
    If Length < 1 Then Return String.Empty
    If str Is Nothing Then str = String.Empty
 
    str = str.PadRight(Length, PaddingChar)
    Return str.Substring(0, Length)
 
    'Return str.PadRight(Length, PaddingChar).Substring(0, Length)
End Function