Sub Sample() Dim str As String str = " 123.45+678" MsgBox Val(str) '123.45を表示します str = "1,000" MsgBox Val(str) '1を表示します End Sub