Excel - Probs con formularios

Va de nuevo.....

Tengo un userform con el cual pretendo llenar un formato en excel.
En el userform se ingresan los datos que nos pide, cuenta con 4 botones (continuar, pausar, limpiar y cancelar).
Bien, la idea es q al momento de oprimir continuar, los datos ingresados en este formulario me los pase al siguiente formulario en los labels que representan a cada uno de los campos del formulario anterior.
Todo iba bien, capturaba los datos q se me pedian, y luego le daba en continuar y me pasaba los datos al siguiente formulario (usé la propiedad caption de las etiquetas).
Pero después de haber hecho el código initialize del segundo userform, ahora me marca un error al momento de darle continuar en el primer userform.

El error que me indica es el 13
"Type mismatch "
El error me lo genera cuando quiero asignarle un valor a la propiedad caption de los labels del siguiente userform.

He aquí el código del botón Continuar

Private Sub cmdContinue_Click()
Dim codCompany$, curCompany$
If Me.opt2030 = True Then
codCompany = "1130"
curCompany = "Empresa 1"
Else
If Me.opt2040 = True Then
codCompany = "1140"
curCompany = "Empresa 2"
Else
If Me.opt2060 = True Then
codCompany = "1160"
curCompany = "Empresa 3"
Else
If Me.opt2090 = True Then
codCompany = "1290"
curCompany = "Empresa 4"
End If
End If
End If
End If
'DESDE AQUI COMIENZAN LOS PROBLEMAS
frmVoucRecords.ciaNumber.Caption = codCompany
frmVoucRecords.Company.Caption = curCompany

If Me.optMXN = True Then
frmVoucRecords.lblCurr.Caption = "PESOS"
End If
If Me.optUSD = True Then
frmVoucRecords.lblCurr.Caption = "USD"
End If
If IsEmpty(Me.txtIVAInv.Value) = True Then
frmVoucRecords.lblInvIVA.Caption = 0
Else
frmVoucRecords.lblInvIVA.Caption = Me.txtIVAInv.Value
End If
frmVoucRecords.lblSupName.Caption = Me.cmbSupName.Value
frmVoucRecords.lblSupNumb.Caption = Me.Label4.Caption
frmVoucRecords.lblInvNumb.Caption = Me.txtInvNumb.Value
frmVoucRecords.lblInvDate.Caption = Me.txtInvDate.Value
frmVoucRecords.lblDateRec.Caption = Me.txtInvRec.Value
frmVoucRecords.lblInvAmt.Caption = Me.txtInvAmou.Value
frmVoucRecords.lblDocNumb.Caption = Me.txtDocNumb.Value
frmVoucRecords.lblBtcNumb.Caption = Me.txtBatchNumb.Value
frmVoucRecords.lblGLDate.Caption = Me.txtGLDate.Value
frmVoucRecords.lblPONumb.Caption = Me.txtPONumb.Value
frmVoucRecords.lblChkTT.Caption = Me.txtChkTT.Value
frmVoucRecords.lblDatePaid.Caption = Me.txtDatePaid.Value
Windows("02 - VOUCHERS.xls").Visible = True
Workbooks("02 - VOUCHERS.xls").Activate
Sheets(codCompany).Visible = True
Sheets(codCompany).Activate
frmVouchers.Hide
frmVoucRecords.Show
End Sub

Y aca esta el codigo del segundo userform

Private Sub UserForm_Initialize()
Dim Compa$
Dim supName$, supInvo$, supInvCur$
Dim supNumbr&, dcNumbr&, btcNumbr&, poNumbr&, chkNumbr&
Dim supDtRec As Date, supInvDat As Date, glDat As Date, dtPaid As Date
Compa = Me.ciaNumber.Caption
supName = Me.lblSupName.Caption
supInvo = Me.lblInvNumb.Caption
supInvCur = Me.lblCurr.Caption
supNumbr = Me.lblSupNumb.Caption
dcNumbr = Me.lblDocNumb.Caption
btcNumbr = Me.lblBtcNumb.Caption
poNumbr = Me.lblPONumb.Caption
chkNumbr = Me.lblChkTT.Caption
supDtRec = Me.lblDateRec.Caption
supInvDat = Me.lblInvDate.Caption
glDat = Me.lblGLDate.Caption
dtPaid = Me.lblDatePaid.Caption
With Me.txtBU
.Value = ""
.MaxLength = 9
.BackColor = RGB(255, 255, 201)
.ForeColor = RGB(0, 0, 136)
End With
With Me.txtAcc
.Value = ""
.BackColor = RGB(255, 255, 201)
.ForeColor = RGB(0, 0, 136)
End With
With Me.txtsubAcc
.Value = ""
.BackColor = RGB(255, 255, 201)
.ForeColor = RGB(0, 0, 136)
End With
With Me.txtSubL
.Value = ""
.BackColor = RGB(255, 255, 201)
.ForeColor = RGB(0, 0, 136)
End With
With Me.txtType
.Value = ""
.BackColor = RGB(255, 255, 201)
.ForeColor = RGB(0, 0, 136)
End With
With Me.txtEntry
.Value = ""
.BackColor = RGB(255, 255, 201)
.ForeColor = RGB(0, 0, 136)
End With
With Me.txtDescrip
.Value = ""
.BackColor = RGB(255, 255, 201)
.ForeColor = RGB(0, 0, 136)
End With
Windows("02 - VOUCHERS.xls").Visible = True
Workbooks("02 - VOUCHERS.xls").Activate
Select Case Compa
Case "2030"
Sheets("2030").Visible = True
ActiveWorkbook.Sheets("2030").Activate
ActiveWindow.DisplayGridlines = False
Case "2040"
Sheets("2040").Visible = True
ActiveWorkbook.Sheets("2040").Activate
ActiveWindow.DisplayGridlines = False
Case "2060"
Sheets("2060").Visible = True
ActiveWorkbook.Sheets("2060").Activate
ActiveWindow.DisplayGridlines = False
Case "2090"
Sheets("2090").Visible = True
ActiveWorkbook.Sheets("2090").Activate
ActiveWindow.DisplayGridlines = False
End Select
Range("C5").Value = supName
Range("G5").Value = supInvo
Range("I5").Value = supDtRec
Range("C6").Value = supNumbr
Range("G6").Value = supInvCur
Range("I6").Value = supInvDat
Range("C7").Value = dcNumbr
Range("G7").Value = btcNumbr
Range("I7").Value = glDat
Range("C8").Value = poNumbr
Range("G8").Value = chkNumbr
Range("I8").Value = dtPaid
Windows("02 - VOUCHERS.xls").Visible = False
Me.txtBU.SetFocus
End Sub

Gracias por sus comentarios

lo mas simple sería usar variables globales

Saludos desde Baires, JuanC

Eso es recurrir a option explicit, correcto?

O esto será usando static en lugar de dim?
Hay que tener en cuenta q la intencion darle valores a la propiedad caption de una serie de labels de otro formulario, será funcional usando static?

me parece que tenés los conceptos mal aprendidos
una cosa es Option Explicit, otra Static y otra Dim
te sugiero que lo leas en la ayuda del Editor VBA de Excel
las variables a las que hago referencia es declarar una variable
tipo String para cada label, para que sean globales declaralas
como Public en un módulo (también deberías leer el tema en la ayuda)

Saludos desde Baires, JuanC

como hago una base de datos en excel? necesito hacer un inventario en exel y seguir guardando informacion indefinidamente y modificarla ya sea eliminando cosas o agregandole mas informacion