C# と VB.NET の質問掲示板

クリップボードにテキストデータを出力したいのですが
以下のようなプログラムを作りました。

これでも動作してはいるのですが、
一度、テキストデータをバイト配列にしてから、再度テキストデータに戻しているので
二度手間な気がします。
もっと良い方法があればお教え願います。


        Dim stream As New MemoryStream


        Using writer As New IO.StreamWriter(stream, System.Text.Encoding.Default)
            writer.WriteLine("ああ")
        End Using


        Dim ByteData() As Byte = stream.ToArray
        stream.Close()


        Dim SetText As String = Encoding.Default.GetString(ByteData)

        Clipboard.SetText(SetText)