テキストボックスの計算結果を小数点まで表示するには

解決

mishin 2004-02-24 02:29:47 No: 112040

教えて下さい
テキストボックスで足し算をする場合、小数点以下２位までの計算結果を出す場合
どうすればいいのでしょう？いろいろ試したのですが分かりませんのでお願いします

Private Sub Command1_Click()
        Dim mytotal As Integer
            mytotal = CInt(Text1.Text) + CInt(Text2.Text) + CInt _
            (Text3.Text)
                Text4.Text = Format(mytotal, "##,##0.00")
End Sub

アッガイ 2004-02-24 02:42:36 No: 112041

Dim mytotal As Single

mytotal = CSng(Text2.Text) + CSng(Text3.Text) + CSng(Text4.Text)
Text5.Text = Format(mytotal, "##,##0.00")
かな？

計算結果がIntegerでは・・・

mishi 2004-02-24 02:52:45 No: 112042

アッガイさん、ありがとうございました。
参考書を並べて、ず〜っとやってたんですよ。一瞬で解決ですね。
助かりました。またお世話になります。