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

' Macro que testa se um arquivo existe no caminho informado
Sub TestarArquivoExiste()
  ' caminho e nome do arquivo
  Dim nome_arquivo As String
  nome_arquivo = "C:\\estudos_vba\\linguagens.txt"

  ' o arquivo existe?
  If Len(Dir(nome_arquivo)) <> 0 Then
    MsgBox "O arquivo existe no caminho informado"
  Else
    MsgBox "O arquivo não existe no caminho informado"
  End If
End Sub

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

' Procedimento para converter Integer e Double em string
Sub ConverterNumeroString()
  ' vamos declarar duas variáveis numéricas
  Dim codigo As Integer
  Dim preco As Double
  
  codigo = 58
  preco = 32.15
  
  Dim resultado As String
  resultado = "O código do produto é: " + CStr(codigo) + _
    " e o preço é: " + CStr(preco)
  
  ' mostramos o resultado
  MsgBox resultado
End Sub

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

' Macro VBA Excel usada para converter um caractere
' em seu código ASCII
Sub RetornarCodigoASCII()
  ' Variáveis usadas na resolução do problema
  Dim letra As String
  Dim codigo As Integer
  
  ' vamos pedir para o usuário informar um caractere
  letra = InputBox("Informe um caractere: ", "Código ASCII", 0)
  Debug.Print "Você informou o caractere: " & letra
  
  ' agora vamos obter o código ASCII correspondente
  codigo = Asc(letra)
  
  ' e mostramos o resultado
  Debug.Print "O código ASCII correspondente é: " & codigo
End Sub