明示的な型変換 では、先ほどのXとYの値をそれぞれ入力して、数値として足し算したい場合はどうするかというと、関数を用いた明示的な型変換が必要になる。 先ほどのコードを、関数を用いて明示的に型変換を行うようにする。 Option Explicit Dim strX, strY, dblX, dblY, dblSum strX = InputBox("Xの値を入力してください。") If IsNumeric(strX) Then dblX = CDbl(strX) Else dblX = 0 End If strY = InputBox("Yの値を入力してください。") If IsNumeric(strY) Then dblY = CDbl(strY) Else dblY = 0 End If dblSum = dblX + dblY MsgBox strX & "+" & strY & "=