Application-defined or object-defined error

[mpirpanlar]

Selamlar;

aşağıda detaylarını belirttiğim kod'ta enson bir formül oluşturuluyor ve bu formül başlıkta belirttiğim hata ile sonlanıyor.. Bu sorunun bir çözümü yok mu?
Program kısaca bir UserForm üzerinden çeşitli verileri aldıktan sonra aşağıdaki formülü oluşturuyor ve bunu ilgili hücreye yazıyor. Daha doğrusu yazamıyor...

'*************************************************
Private Sub TB_ButtonClick(ByVal Button As MSComctlLib.Button)
'On Error Resume Next
If Button.Key = "btn0" Then
If TRV.SelectedItem.Key = "G1000" Then
ActFormula = "=Get_Card_TABLE_FIELD(" & """" & txtFormul0.Text & """" & ";" & _
txtFormul1.Text & ";" & _
txtFormul2.Text & ";" & _
txtFormul3.Text & ";" & _
"""" & txtFormul4.Text & """" & ";" & _
"""" & txtFormul5.Text & """" & ")"
ActiveSheet.Cells(1, 1).Formula = ActFormula
End If
End If
End Sub

'*******************************************************