Sub Sample() Dim a As Double, tmp As Variant a = 12.345678 tmp = CStr(a) MsgBox VarType(tmp) '文字列型(8)を返します End Sub