' Display value and data type

Dim nvar As Variant

Dim nstr As String

nstr = Inputbox("Number", "Enter any number", "0")

If Isnumeric(nstr) Then

nvar = Cdbl(nstr)

Messagebox nvar,, Typename(nvar)

Else

Messagebox nstr,, "Not a number"

End Sub

例 2
' Convert the sum of two Single values to Double.
Dim x As Single
Dim y As Single
Dim result As Double
x!= 11.06E23
y!= 6.02E23
result# = CDbl(x!+ y!)
Print result# ' Prints 1.70800003057064E+24

関連項目

CDbl 関数