Public Sub createTransferdata()
        'Try
        tcOut = New NamedPipe.TransferDaten
        With tcOut
            .Typ = NamedPipe.TransferTyp
            If Not String.IsNullOrEmpty(TransferString) Then .TString = _
              TransferString
            Select Case .Typ
                Case NamedPipe.TransferTyp.Count
                    .TCount = TransferCount
                Case NamedPipe.TransferTyp.Table
                    .CTable = Nothing
                    .CTable = New DataTable
                    .CTable = TransferDataTable.Copy
                Case NamedPipe.TransferTyp.Decimal
                    .TNumber = TransferNumber
            End Select
        End With
        'Catch ex As Exception
        'tcOut = Nothing
        'End Try
    End Sub

Danke für die Hilfe

Gruß Christian