特定长度的字符串截取

  Protected Function GetEncodingStringLength(ByVal encodeObject As Object, ByVal length As String) As String
        Dim encodingData() As Byte          
        Dim stringValue As String           '

        If length.Equals(String.Empty) Then
            Return encodeObject
        End If

        stringValue = encodeObject
        
        encodingData = System.Text.Encoding.Default.GetBytes(stringValue)
        
        If length < encodingData.Length Then
            Return System.Text.Encoding.Default.GetString(encodingData, 0, length)
        Else
            Return  encodeObject
        End If
    End Function