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

' 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