Dim d = Decimal.Parse("\10,000", Globalization.NumberStyles.AllowThousands Or Globalization.NumberStyles.AllowCurrencySymbol)
とか
Dim d = 0D If Decimal.TryParse("\10,000", Globalization.NumberStyles.AllowThousands Or Globalization.NumberStyles.AllowCurrencySymbol, Nothing, d) Then End If