Function Cutstring(ByVal Text As String, ByVal startLenth As Integer, Optional ByVal Lenth As Integer = 0) As String Dim StringArray() As Byte '임시 바이트 배열 Lenth = IIf(Lenth = 0, System.Text.Encoding.GetEncoding("korean").GetByteCount(Text), Lenth) ' IIf(true/false, true 일경우 GetByteCount(Text)로 Text의 길이를 저장 , false일경우 lenth를 그대로 저장 StringArray = System.Text.Encoding.GetEncoding("korean").GetBytes(..