Cita de: Krackwar en 12 Junio 2008, 17:14 PM
buen , lo camvie por mensajep
Si haces eso, entonces tambien deberías cambiar esto:
CitarPublic Function mensaje(mensajep As String, titulo As String)
On Error GoTo error
MsgBox mensaje, , titulo
mensaje = 1
Exit Function
error:
mensaje = 0
End Function