This is how I do it:


Code
-------------------
Dim strTemp as String
Dim varused as double

strTemp = Application.InputBox("Enter the value.")

If Not IsNumeric(strTemp) Then
'Message non numeric and exit
End If

If Trim(strTemp) = "" Then
'Message blank and exit
End If

varused = CDbl(strTemp
-------------------



--
Message posted from http://www.ExcelForum.com