한글을 두자리로 자르기

    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(Text) ' 배열에 값 저장

        Return System.Text.Encoding.GetEncoding("korean").GetString(StringArray, startLenth, Lenth)
        ' GetStrign(배열, 시작, 끝)을 입력한다
    End Function