Here's another way to do this, hope this helps:
If IsNumeric(TextBox1.Text) Then
Dim dbl As Double = CDbl(TextBox1.Text)
dbl *= dbl
ListBox2.Items.Add(dbl)
Else
MessageBox.Show("Value entered is not a Number")
End If