VB2010　WIN7

Dragdo_DragDropでエクセルシートを読み込んだ際に
エクセルに貼っている画像（.gif）を消去したいのですが
どのようにしたらよいのでしょうか？

現在の読み込みです
 Private Sub DragDrop_TextChanged(sender As System.Object, e As System.EventArgs) Handles Dragdo.TextChanged

 'Excelアプリケーションオブジェクトを生成  'Excelアプリケーションオブジェクトを生成
            
　　　　　xlApp = CreateObject("Excel.Application")
               
            'ワークシートの操作
            shtHoge = bookHoge.worksheets("Sheet1")

 '見積番号
            MitumoribangouBox.Text = shtHoge.range("AC3").value
            MitumoriLB.Text = shtHoge.range("AC3").value

上記の感じで続きますが。。