Половина строки в Marshal.PtrToStringAuto

    <StructLayout(LayoutKind.Sequential)> _
    Public Structure COPYDATASTRUCT
        Public dwData As IntPtr
        Public cbData As Int32
        Public lpData As IntPtr
    End Structure
 
    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        Dim cds As COPYDATASTRUCT        
        Select Case m.Msg
            Case WM_COPYDATA                
                cds = CType(m.GetLParam(GetType(COPYDATASTRUCT)), COPYDATASTRUCT)
                Select Case LastDwDate 'из первого сообщения уже знаем код запроса. в текущем сообщении имеем ответ
                    Case JRC_COPYDATA_ID_TRACK_TITLE
                        Me.lbTitle.Text = Marshal.PtrToStringAuto(cds.lpData, cds.cbData \ Marshal.SystemDefaultCharSize)
                        ...
                End Select
                LastDwDate = cds.dwData 'первое сообщение - код отправленного запроса                
        End Select
        MyBase.WndProc(m)
    End Sub

    Function GetConvCh(ByVal s As String, ByVal l As Byte) As String'тут мы перекодируем и переворачиваем пары букв
        Dim r As String, t As String = ""
        Dim a As Byte() = Encoding.BigEndianUnicode.GetBytes(s)
        r = Encoding.Default.GetString(a)
        For i As Byte = 2 To l Step 2
            t = t & Mid(r, i, 1) & Mid(r, i - 1, 1)
        Next
        Return t
    End Function
 
    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        Dim cds As COPYDATASTRUCT
        Select Case m.Msg
            Case WM_COPYDATA
                cds = CType(m.GetLParam(GetType(COPYDATASTRUCT)), COPYDATASTRUCT)
                Select Case cds.dwData
                    Case JRC_COPYDATA_ID_TRACK_TITLE
                        Me.lbTitle.Text = GetConvCh(Marshal.PtrToStringAuto(cds.lpData), cds.cbData)
                        ...
                End Select                
        End Select
        MyBase.WndProc(m)
    End Sub

    Function GetConvCh(ByVal s As String, ByVal l As Long) As String        
        Dim a As Byte() = Encoding.Unicode.GetBytes(s)
        Dim r As String = Encoding.Default.GetString(a)
        Dim builder As New StringBuilder(r)
        builder.Replace(Chr(0), vbCrLf)
        Return builder.ToString
    End Function