Function msgBoxVB( message, code, title )

  result = MsgBox(message, code, title)
  
  msgBoxVB = result

End Function