Error en formato

Excel me marca error en formato de un textbox

Private Sub TextBox9_AFTERUPDATE()
TextBox9.Text = Format(TextBox9, "$ ###,###,###.00")
Dim A, B, C, D, E As Variant
If TextBox9.Text <> "" And TextBox1.Text <> "" Then
A = TextBox1.Text
B = TextBox9.Text
C = A / 100
D = B * C
E = B - D
TextBox11.Text = Format(D, "$ ##,###,###,###.00")
TextBox10.Text = Format(E, "$ ##,###,###,###.00")
TextBox19.Text = Format(E, "$ ##,###,###,###.00")
End If
End Sub

este código hace un operación simple toma una cifra le saca un porcentaje y pone en un text cuanto es la cantidad el porcentaje y en el otro lo que resta del porcentaje

antes funcionaba bien pero lo pase a otro compu con excel de 64Bits y me manda el error en Format dice que no se puede localizar el proyecto o la biblioteca ojala me puedan ayudar no se porque sale gracias

0

Añade tu respuesta

Haz clic para o