いつもアドバイスありがとうございます。

ステップ実行を行ったところ、たしかに、
【Nothing(空っぽ)】の表示がでました。

おっしゃったとおりになっているかわかりませんが、下記のように修正しました。

    Private Sub hozonn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hozonn.Click



        Dim dSet As DataSet = New DataSet("リスト")

        Dim dTbl As DataTable

        Dim sWrite As System.IO.StreamWriter



　　　　'DataGridViewからDataTableを取得 

        dTbl = DirectCast(auctionlist.DataSource, DataTable)



　　　　'ここ↓を追加。 

　　　　dSet.Tables.Add("商品リスト")



        '出力パスの指定 

        sWrite = New System.IO.StreamWriter("ファイルパス\list.xml" _

                                            , False, System.Text.Encoding.Default)

        

        dSet.WriteXml(sWrite)

        MessageBox.Show("SampleData.xmlに出力しました。", "通知")





    End Sub

ステップ実行でまた【Nothing(空っぽ)】の表示がでました・・・。




ちなみに質問なのですが、
DataGridView（ここではauctionlist）の部分がおかしいから【Nothing(空っぽ)】の表示がでるのでしょうか？

現在のところテキストボックス３つに入力したデータを、登録ボタンを押すとDataGridViewのレコードに表示をさせていてます。
追加で２つめのレコードを増やすこともでき、DataGridView（ここではauctionlist）に表示されています。

DataGridViewからDataTableを取得できていないのでしょうか？