VBA

[riberex00@yahoo.com.br]

Boa tarde pessoal,

Resolvi aprender um pouco sobre programação e resolvi começar por um curso básico em VBA.  Estou com um "pequeno problema e gostaria de obter ajuda, por gentileza. Alguém poderia me dizer porquê quando mando executar (F8) o procedimento a seguir dá uma mensagem de erro de sintaxe? Obrigado.

Type typContato

    nomeCompleto As String * 20
    dataNascimento As Date
    fone As String * 12
    email As String * 20
    
End Type

Public arrContato(1 To 10) As typContato
Public intUltimoContato As Integer

Sub menuAgenda()

    Dim varOpcao As Variant
    
    varOpcao = inputBox ("Informe a opçao desejada:" & vbCrLf & _
                        vbLf & _
                        " [ 1 ] Incluir Novo Contato" & vbCrLf & _
                        " [ 2 ] Exibir Contato" & vbCrLf & _
                        " [ 3 ] Editar Contato" & vbCrLf & _
                        " [ 4 ] Excluir Contato" & vbCrLf & _
                        " [ 5 ] Salvar Agenda" & vbCrLf & _
                        vbLf & _
                        " [ 6 ] Sair"
                        , "Agenda de Contatos")
End Sub

   

 

[Alyson Ronnan Martins]

Bom eu "pessoalmente" tive alguns problemas similares com a limitação do meu computador

Você já executou o seu código demarcando (em vermelho), usando o F9, para identificar aonde esta aparecendo o erro.