Code:
Dim MyDouble As Double = 0
Dim SafelyConverted As Boolean = Double.TryParse(InputBox("What is your height?"), MyDouble)
Cheers