Hash em VBA

Quanto mais eu conheço VBA.. mais eu dou valor ao Perl!!
Olha que complicação pra criar um Hash:

Sub aaa()
    Set d = CreateObject("Scripting.dictionary")
    d.Add "A", "B"
    d.Add "C", "D"
    a = d.items
    b = d.keys
    For i = 0 To d.Count - 1
         MsgBox a(i) & ", " & b(i)
    Next i
End Sub

Em Perl, bastaria %aaa = ( )....

Errormsg: Erro de Compilação: É impossível localizar o projeto ou biblioteca

Erro ocorre ao tentar abrir um arquivo com macros em outro computador, possivelmente com alguns controles adicionais de Excel desativados. Solução possível (ainda testando): na máquina onde deu erro, entrar no VBE e selecionar para cada projeto (form): Ferramentas -> Referências. Ele deve mostrar o que saiu errado. Essa foi a janela que resultou:

Teoricamente a solução seria simplesmente recompilar o projeto desmarcando esses controles, (já que seria inviável pedir a todos os usuários que instalem os controles ausentes -- a não ser que haja uma forma automática de fazê-lo?).
[UPDATE]
Possível forma automática: Iniciar->Executar->CMD
Copiar DLL  para \windows\system32
reg32srv Nome_da_DLL
Por exemplo, a solução seria adicionar o Mscomct2.ocx em todas as máquinas usando um pacote contendo um .BAT que faria a cópia da DLL e posterior registro.
[/UPDATE]
É mais viável dar um "jeitinho" e alterar o projeto do que alterar o Excel de cada usuário final...

Evento Change() em um ComboBox

Se algum evento altera o conteúdo de um ComboBox, convém logo no início do evento limpar todo o conteúdo que existia anteriormente nesse ComboBox. Ex.:

           Dim x As Integer
           For x = 1 To cboBox1.ListCount
               cboBox1.RemoveItem 0
           Next x

A partir disso, tudo pronto para trabalhar com .AddItem() ou .List().

Recuperar células adjacentes a um Find()

No help do Excel, o Find() deveria retornar um range. O que ele retorna, na verdade, é o .Value da célula localizada. Mas se for necessário navegar nas células adjacentes deve-se considerar como range mesmo.

Veja exemplo:

Set Mat = Worksheets("Banco_Sistema").Range("E:E").Find(txtMat.Text)
If Mat Is Nothing Then
    Dim Resposta As Integer
    Resposta = MsgBox("Servidor não encontrado!! Deseja adicioná-lo manualmente?", vbYesNo)
    Select Case Resposta
    Case vbYes
        txtNome.Visible = True
        labNomeServidor.Visible = False
    Case vbNo
        txtMat.Text = ""
        labNomeServidor.Caption = "Nome do Servidor"
        txtNome.Text = ""
        txtNome.Visible = False
        labNomeServidor.Visible = True
    End Select
Else
    enderecoMat = Mat.Address(False, False)  'Referencia relativa
    Dim Resposta2 As Integer
    Resposta2 = MsgBox("Por favor, confirme os dados do servidor selecionado:" & vbNewLine & vbNewLine & "Matrícula: " & txtMat.Text & vbNewLine & "Nome: " & Mat.Offset(0, 1), vbYesNo)
    Select Case Resposta2
    Case vbYes
        labNomeServidor.Caption = Mat.Offset(0, 1)
    Case vbNo
        labNomeServidor.Caption = "Nome do Servidor"
        txtNome.Text = ""
        Mat = ""
    End Select

End If

Procuramos o texto colocado no txtBox, e retornamos o Value da primeira célula à direita.