Dim fee As Integer = Integer.Parse("\1,234,567", Globalization.NumberStyles.Any)Replaceより楽…当然日本語環境で"$1,234"とか入れると破綻するけど