I am using the code below to populate a dialogbox. I only want this to work
if there is a value in the selected cell. If there is a formula and not a
value then I want the Textboxes to be empty.


Private Sub UserForm_Initialize()
Dim rng
Set rng = Cells(ActiveCell.Row, 1)

TextBox1.Text = rng(1, 1).Value
TextBox2.Text = rng(1, 2).Value
TextBox3.Text = rng(1, 3).Value
TextBox4.Text = rng(1, 4).Value
End Sub