Como acessar os caracteres individuais de uma string em VBA usando a função Mid()

' Procedimento VBA que permite acessar os caracteres individuais
' de uma string
Sub AcessarCaracteresIndividuais()
  ' vamos declarar as variáveis necessárias
  Dim frase As String
  
  ' inicializamos a string
  frase = "Gosto de VBA"
  MsgBox "A frase é: " & frase
  
  ' agora vamos mostrar o primeiro caractere e o último
  ' caractere
  Dim primeiro As String
  primeiro = Mid(frase, 1, 1)
  MsgBox "O primeiro caractere é: " & primeiro
  Dim ultimo As String
  ultimo = Mid(frase, Len(frase), 1)
  MsgBox "O último caractere é: " & ultimo
End Sub