>>233
VBSは良く分からないけど、
(10|[0-9](\.[05])?)([^\.0-9]|$)
得点はこんな感じでどうでしょ。

>>235
Perlなら
if ($long =~ /\Q$short/) {}