Como quebrar uma string em suas partes em VBA usando a função Split()

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

' Macro VBA que quebra uma string em suas partes
Sub QuebrarStringPartes()
  Dim frase As String
  Dim i As Integer
  Dim partes As Variant

  ' vamos inicializar a frase
  frase = "Quero aprender VBA hoje mesmo"
  MsgBox "A frase é: " & frase

  ' agora vamos quebrar a string em suas partes
  partes = Split(frase, " ")

  ' e percorremos as partes da string individualmente
  For i = 0 To UBound(partes)
    MsgBox "A " & (i + 1) & ".a palavra é: " & partes(i)
  Next
End Sub