Consegui corrigir um dos problemas do formulário... O Erro que retorna quando clica 2x em uma linha do ListBox Vazia.
Eu incluí a função On Erro GoTo pra retornar uma msg de aviso, pois o erro não gera impacto nenhum.

Private Sub ListBox_LISTA_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If xAlterar.ListBox_LISTA.ListIndex = -1 Then
MsgBox "NENHUM ITEM SELECIONADO!", vbExclamation
Else
Dim ListLinha As Long

'SE DER ERRO MOSTRAR AVISO
On Error GoTo aviso

ListLinha = ListBox_LISTA.ListIndex
xAlterar.TextBox_RNC.Text = xAlterar.ListBox_LISTA.List(ListBox_LISTA.ListIndex, 2)
xAlterar.TextBox_ITEM.Text = xAlterar.ListBox_LISTA.List(ListBox_LISTA.ListIndex, 3)
xAlterar.TextBox_DESCRICAO.Text = xAlterar.ListBox_LISTA.List(ListBox_LISTA.ListIndex, 4)
xAlterar.TextBox_UN.Text = xAlterar.ListBox_LISTA.List(ListBox_LISTA.ListIndex, 5)
xAlterar.TextBox_LOTE.Text = xAlterar.ListBox_LISTA.List(ListBox_LISTA.ListIndex, 6)
xAlterar.TextBox_QTD.Text = xAlterar.ListBox_LISTA.List(ListBox_LISTA.ListIndex, 7)
xAlterar.ComboBox_STATUS.Text = xAlterar.ListBox_LISTA.List(ListBox_LISTA.ListIndex, 8)
xAlterar.TextBox_DATA.Text = xAlterar.ListBox_LISTA.List(ListBox_LISTA.ListIndex, 1)
xAlterar.TextBox_FICHA.Text = xAlterar.ListBox_LISTA.List(ListBox_LISTA.ListIndex, 0)
xAlterar.TextBox_OBS.Text = xAlterar.ListBox_LISTA.List(ListBox_LISTA.ListIndex, 11)
xAlterar.TextBox_REJ.Text = xAlterar.ListBox_LISTA.List(ListBox_LISTA.ListIndex, 10)
xAlterar.ComboBox_FORNECEDOR.Text = xAlterar.ListBox_LISTA.List(ListBox_LISTA.ListIndex, 9)

Exit Sub

'AVISO DO ERRO
aviso: MsgBox "NENHUM ITEM SELECIONADO!", vbExclamation

End If
End Sub

Consegui resolver mais um dos problemas.. Faltava referenciar a Workbook,

1° Se eu abrir uma outra planilha no qual contém as informações que devo preencher no formulário, o formulário fecha sozinho, pois ele perde a referencia da planilha original e busca as Abas na planilha ativa.

Private Sub TextBox_ITEM_Change()
    
    'INSERIR CODIGO
  intLinha = fiscal.Worksheets("CADASTRO").Range("H3").Row
  fiscal.Worksheets("CADASTRO").Cells(intLinha, 8) = xAlterar.TextBox_ITEM.Value
  
  'PROCV DESCRIÇÃO
     xAlterar.TextBox_DESCRICAO.Value =  fiscal.Worksheets.Range("CADASTRO!I3").Value
    
  'PROCV UN
     xAlterar.TextBox_UN.Value =  fiscal.Worksheets.Range("CADASTRO!J3").Value

End Sub

Não consegui exportar os dados da ListBox, porém eu puxei as informações da planilha no qual o ListBox também puxa as informações.

Mas se alguem souber como exportar dados do ListBox, por favor me ajuda ai.

5° O usuário não tem acesso a planilha na qual esta sendo imputado os dados, porém preciso disponibilizar um arquivo para o mesmo ter uma vizão geral dos dados. Então preciso que os dados do ListBox seja exportado para uma nova pasta de Trabalho.

Private Sub export_Click()

fiscal.Worksheets("CONTROLE_RNC").Range("B:M").Copy
    With Workbooks.Add
        Cells(1, 1).PasteSpecial xlAll
        Sheets(1).Name = Format(Now(), "dd-mm-yyyy") & " Controle de RNC'S"
    End With

End Sub

Como eu consegui resolver o problema do tópico que era Exportar dados do ListBox, vou fechar esse post e abrir um novo com as dificuldades que ainda tenho que resolver.
Dessa forma não fica aberto um post com muitos assuntos a serem tratados.