Zero value in userform textbox

Hello,

I.ve got a problem regarding a userform textbox, when i load the userform some values are loaded (see code)

Private Sub UserForm_Initialize()
frmWegschrijven.TextBox2.value = Blad1.Range("D6").Text
frmWegschrijven.TextBox2.value = Blad1.Range("D7").Text
...
...
End Sub

Everything works fine untill the formula in cel D6 returns zero, then the textbox is empty istead of showing 0.

Anyone an idea?