Private Function Cut_Records(ByRef strSourceToCut As String, ByVal intBytes As Integer) As String
Dim int As Integer
Dim strReturn As String
Dim byteReturn As Byte()
Dim byteSource As Byte()
If intBytes >= System.Text.Encoding.Default.GetBytes(strSourceToCut).Length Then
strReturn = strSourceToCut
ElseIf intBytes <= 0 Then
strReturn = String.Empty
End If