Textbox'a kapalı kitaptan veri alma

[DeliBalta58]

Textbox1'e

TextBox1 = ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[data.xls]Sayfa1'!R4C24") '[M4]

kodu ile veri aldırıyorum.
İlgili hücre de veri yoksa Textbox ta 0 ( Sıfır ) çıkıyor. Hücrede veri yoksa yada delete ile silinmiş olduğunda textbox'ta 0 çıkmasını nasıl engellerim.

 

[Orion1]

Textbox1'e

TextBox1 = ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[data.xls]Sayfa1'!R4C24") '[M4]

kodu ile veri aldırıyorum.
İlgili hücre de veri yoksa Textbox ta 0 ( Sıfır ) çıkıyor. Hücrede veri yoksa yada delete ile silinmiş olduğunda textbox'ta 0 çıkmasını nasıl engellerim.

Dim deg As Variant
deg = ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[data.xls]Sayfa1'!R4C24") '[M4]
If deg = 0 Then
    TextBox1.Text = ""
    Else
    TextBox1.Text = deg
End If

 

[DeliBalta58]

Elinize sağlık teşekkürler

 

[Orion1]

Elinize sağlık teşekkürler

Rica ederim.
İyi çalışmalar.