'MsgBox II
'En ocasiones sera necesario forzar rotura de lineas en los mensajes que muestre
'El sgte es un ejemplo de esta situación.
Sub msgboxII()
Dim msg As String
Dim rpt As Byte
msg = "Usted debe asegurarse siempre " & vbCrLf
msg = msg & "de evitar que los usuarios manipulen " & vbCrLf
msg = msg & "Información de otras areas ¿Esta cumpliendo con esa tarea ?"
rpt = MsgBox(msg, vbYesNo + vbQuestion)
If rpt = vbYes Then
MsgBox "Realice las sgtes tareas"
Else
MsgBox "Revise nuevamente"
End If
End Sub
