'Cardapio com opções Select , Case, End Select

Sub pocSelec()
'Cardapio com opções Select Case End Select
    Dim opcao   As Integer              'para escolha
    Dim valor   As Currency             'preco pedido
    Dim pedido  As String               'o que pediu
   
    'mostra o cardapio na tela
    MsgBox "1)Café" + Chr(13) + "2)Almoço" + Chr(13) + "3)Jantar" + Chr(13) + "Escolha a Opçao na Proxima Tela"
   
    'espera a escolha do usuario
    ' Select Case
    opcao = InputBox("Digite a Opção: ")
   
    Select Case opcao
        Case 1
            pedido = "Cafe da Manha"
            valor = 5
        Case 2
            pedido = "Amoço"
            valor = 12
        Case 3
            pedido = "jantar"
            valor = 10
        Case Else
            pedido = "Olha Direito no Cardapio"
            valor = 0
    End Select
    MsgBox "Pedido Feito: " & pedido & Chr(13) & "Valor do Pedido R$ " & valor
End Sub