Macro Emitir recibo guardarlo com pdf con nombre de dato de celda

Macro Excel en un libro banco en una celda tengo un lista
desplegable, al escoger CH (Cheque) se ejecuta un Form de los cuales existen
montos para descontar a un monto de una factura (RetenciónFC, nota de crédito y
Retención Nota de Crédito) necesito su orientación en cuanto a:
1. Crear
Una Formula con cuatro TextBox la cual
sería:
MontoFC-RentencionFC-NotaC+RetencionNC,
este resultado debe mostrarse en una Etiqueta Porque? Esto me permitiría saber
el monto por el que voy a emitir el cheque.
2. Los
textBox debe de mostrar los montos con unidades de mil y decimales trate con el
comando Format y creando variables y no me funciono.
3. El
resultado (monto del cheque) debe de vaciarse en una celda de una hoja (banco)
continua a la celda que posee un valor.
4. Este
proceso al final me debe permitir emitir un recibo guardarlo con el numero de cheque como PDF e
imprimirlo.
Hasta ahora en desarrollado esto:
Private Sub Worksheet_Change(ByVal Target As
Excel.Range)
Dim Tipo As String
If Target.Column = 6 Then
Tipo = Target.Value
Select Case Tipo
Case "CH"
Frm_Banco.Show
Case "ND"
Target.Offset(0, 1).Select
Case "DP", "NC"
Target.Offset(0, 2).Select
Case Else
Target.Offset(0, 0).Select
End Select
End If
If Target.Column = 7 Then
Target.Offset(1, -4).Select
End If
If Target.Column = 8 Then
Target.Offset(1, -5).Select
End If
End Sub
Funciona muy bien
-----------------------------------------
Aquí estoy Atorado
----------------------------------------
Private Sub CommandButton1_Click()
Dim MontoFc
As Integer
Dim
RetencionFC As Integer
Dim
NotaC As Integer
Dim
RetencionNC As Integer
Dim
MontoCH As Integer
TextBox1.SetFocus
TextBox1.Text = MontoFc
TextBox2.Text = RetencionFC
TextBox3.Text = NotaC
TextBox4.Text = RetencionNC
MontoCH = MontoFc - RetencionFC - NotaC
Label6.Caption = MontoCH
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox1.SetFocus
End Sub
Saludos
y gracias por su ayuda y tiempo