Usar o vbCRLF a respeito de põr um retorno do carraige e LINE FEED entre estes.
Escurecer o valMessage como a corda
Escurecer o valInvolvement como a corda
Escurecer o valFirstName como a corda
Escurecer o valLastName como a corda
valMessage = ""
Se IsNull (Me.txtInvolvement.Value) então
valMessage = valMessage & “participação” & crlf
Terminar se
Se IsNull (Me.txtFirstName.Value) então
valMessage = valMessage & “nome” & crlf
Terminar se
Se IsNull (Me.txtLastName.Value) então
valMessage = valMessage & “apelido” & crlf
Terminar se
Se Len (valMessage) > 0 então
MsgBox “estes campos deve ser completado antes que uma pessoa possa ser conservada: ” & crlf & crlf & valMessage
O cancelamento = retifica
Retirar o submarino
Terminar se