Code
Public Function GetBytesSubChar(ByVal s As String, ByVal CharCount As Integer) As String
Dim strRtn As String = ""
Dim bytArray() As Byte
Dim chrArray() As Char
Dim intI As Integer
bytArray = System.Text.Encoding.Default.GetBytes(s)
If CharCount > System.Text.Encoding.Default.GetCharCount(bytArray) Then
strRtn = s
Else
chrArray = System.Text.Encoding.Default.GetChars(bytArray, 0, CharCount)
For intI = 0 To chrArray.Length - 1
strRtn = strRtn & chrArray(intI)
Next
End If
Return strRtn
End Function
Public Function GetBytesSubChar(ByVal s As String, ByVal CharCount As Integer) As String
Dim strRtn As String = ""
Dim bytArray() As Byte
Dim chrArray() As Char
Dim intI As Integer
bytArray = System.Text.Encoding.Default.GetBytes(s)
If CharCount > System.Text.Encoding.Default.GetCharCount(bytArray) Then
strRtn = s
Else
chrArray = System.Text.Encoding.Default.GetChars(bytArray, 0, CharCount)
For intI = 0 To chrArray.Length - 1
strRtn = strRtn & chrArray(intI)
Next
End If
Return strRtn
End Function