Pergunte aqui

Histórico de revisões [voltar]

clique para ocultar/mostrar a revisão 1
Versão inicial

Olá

Use Chr(10) ou Chr(13) "concatenado" com as strings para inserir uma "quebra" de linha na MsgBox:

Sub Main
   MsgBox "Maçã R$ 4,00" & Chr(10) & "Banana R$ 3,00" 
   'Ou'
   MsgBox "Maçã R$ 4,00" & Chr(13) & "Banana R$ 3,00" 
End Sub

Para mais detalhes, veja a Função Chr().

Atte,