Ao exibir mensagens em uma MsgBox, pode ser necessário dividir o texto em múltiplas linhas para facilitar a leitura. No Visual Basic, isso pode ser feito utilizando o caractere especial Chr(13) ou vbCrLf para representar a quebra de linha.
Exemplo 1: Usando Chr(13)
Dim Mens As String
Mens = "Linha número 1" + Chr(13)
Mens = Mens + "Linha número 2" + Chr(13)
Mens = Mens + "Linha número 3"
MsgBox Mens
Exemplo 2: Usando vbCrLf
(Forma Recomendada)
Dim Mens As String
Mens = "Linha número 1" & vbCrLf & _
"Linha número 2" & vbCrLf & _
"Linha número 3"
MsgBox Mens
Explicação do Código
✔ Chr(13): Representa o caractere de retorno de carro (Enter), quebrando a linha.
✔ vbCrLf: Equivalente a Chr(13) & Chr(10), representando Enter + Nova linha (forma recomendada).
✔ Uso do operador &
: Para concatenar strings corretamente no Visual Basic, prefira &
em vez de +
.
Outras Dicas sobre MsgBox no Visual Basic
1. Exibir um Título Personalizado
MsgBox "Linha 1" & vbCrLf & "Linha 2", vbInformation, "Aviso Importante"
2. Exibir Botões Personalizados
Dim resposta As Integer
resposta = MsgBox("Deseja continuar?", vbYesNo + vbQuestion, "Confirmação")
If resposta = vbYes Then
MsgBox "Você escolheu Sim."
Else
MsgBox "Você escolheu Não."
End If