> strChar = Format(Text1.Text, "#.#") strChar = Format(Text1.Text, "#.##") もしくは strChar = Format(Text1.Text, "#.###") strChar = Format(Text1.Text, "#.##") では、小数点第三位以下は無視する形式になります。