Fix "Compile error: overflow" for certain declaration

The below Function declaration got "Compile error: overflow".

Public Const kMax_length_of_Long_Text_field As Integer = 64000

Private Function Sanitized_Long_Text(ByVal Txt As String, Optional ByVal Field_Width As Integer = kMax_length_of_Long_Text_field) As String 

The below Function declaration did not
Private Function Sanitized_Long_Text(ByVal Txt As String, Optional ByVal Field_Width As Integer = 1) As String

Please fix this bug.