treeview ve listbox

[ETEKİN]

Arkadaşlar;
Öncelikle yeni yılınız kutlu olsun.
Aşağıdaki kodlarla treeview den listbox1 a veri aktarıyorum

Private Sub TreeView1_Click()
Set S1 = Sheets("Sayfa2")
ListBox1.ColumnCount = 1
ListBox1.ColumnWidths = "120"

DEG = S1.Cells(TreeView1.SelectedItem.Index, "F")
DEG1 = S1.Cells(TreeView1.SelectedItem.Index, "G")
DEG2 = S1.Cells(TreeView1.SelectedItem.Index, "H")
DEG3 = S1.Cells(TreeView1.SelectedItem.Index, "I")
DEG4 = S1.Cells(TreeView1.SelectedItem.Index, "J")

ListBox1.AddItem DEG
ListBox1.AddItem DEG1
ListBox1.AddItem DEG2
ListBox1.AddItem DEG3
ListBox1.AddItem DEG4
end sub

sorunum, aktarırken boş hücrelerde aktarılıyor.Bunu nasıl önlerim.
Saygılarımla