%VBA
\lstdefinelanguage{VBA}{
   morekeywords={And, As, Byte, Call, Case, Compare, CDbl, Datebase, Date, 
		Dim, Else, ElseIf, End, Error, Exit, Explicit, False, Function, 
		GoTo, If, IIF, Integer, Not, Nothing, Null, Object, On, Option, Or, 
		Private, Resume, String, Single, Select, Set, Static, Sub, Then, True, To,}, 
   sensitive=false, 
   morecomment=[l]Rem, 
   morecomment=[l]', 
   morestring=[b]", 
   emph={acFormBar, acEditMenu, acCurrent, acEntire, acMenuVer70, acSaveYes, 
		acViewNormal, acForm, acDataErrAdded, acNewRec, acDataErrContinue, Cancel, 
		CancelEvent, Close, CurrentDb, DefaultValue, DateValue, DAO, Description, 
		DoCmd, DoMenuItem, Err, Error, Error$, $, Execute,  FindRecord, Forms, 
		FindFirst, IsNull, Me, MsgBox, GoToControl, GoToRecord, NewData, Nz, 
		Maximize, Number, OpenForm, Parent, Recordset, Requery, Response, SetFocus, 
		stDocName, stLinkCriteria, Value, vbExclamation, vbOK, vbOKCancel, 
		vbInformation, vbYes, vbNo, vbYesNo, vbCancel, vbQuestion, vbYesNoCancel, 
		Visible,}, 
   emphstyle=\itshape}