Este código é para VBA dentro de Excel, não para Visual Basic 6.5. Em sua pergunta você pediu VBA e não VB, há uma diferença.
Fechar por favor esta pergunta aceitando este comentário 33039684 como responde à pergunta original afixada e reabrir uma pergunta nova que especific uma solução de VB 6.5 e não uma solução de VBA.