ローンの返済回数の計算を

　　　　　　　　　　　　　　　　　　　　月返済額
　　　　　　　　　　ｌｏｇ｛―――――――――――――――｝
　　　　　　　　　　　　　　　　月返済額−借入総額×利率
　　　　　　返済回数＝――――――――――――――――――――
　　　　　　　　　　　　　　　　　ｌｏｇ（１＋利率）

の式を使ってマクロで計算しようと思っています。
今、月返済額＝TextMonth・借入総額＝TextPrincipal・利率＝Textterestとあてて
Private Sub BtnCalculate_Click()
TextBox1.Text = Log(Val(TextMonth.Text) / (Val(TextMonth.Text) - CCur(TextPrincipal.Text) * Val(Textterest.Text) / 12)) / Log(1 + Val(Textterest.Text) / 12)
End Sub

というふうにしてみたのですが "実行時エラー'424'オブジェクトが必要です。"とでて
うまく動いてくれません。どのように書き直せば動きますでしょうか？
環境はOS XP, Excel 2003, Visual Basic 6.0,です