From 717f4b43e9869bd8f7f706914812950354dae4f6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=BCnther=20Hutter?= <guenther.hutter@htl-leoben.at>
Date: Tue, 15 Mar 2022 17:19:57 +0100
Subject: [PATCH] Added vba as code style

---
 style/langdef-vba.tex | 20 ++++++++++++++++++++
 style/template.tex    |  1 +
 2 files changed, 21 insertions(+)
 create mode 100644 style/langdef-vba.tex

diff --git a/style/langdef-vba.tex b/style/langdef-vba.tex
new file mode 100644
index 0000000..f9c1d33
--- /dev/null
+++ b/style/langdef-vba.tex
@@ -0,0 +1,20 @@
+%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} 
\ No newline at end of file
diff --git a/style/template.tex b/style/template.tex
index 4a839b4..f1bc031 100644
--- a/style/template.tex
+++ b/style/template.tex
@@ -288,6 +288,7 @@ $endif$
 \input{style/langdef-html.tex}
 \input{style/langdef-xml.tex}
 \input{style/langdef-kotlin.tex}
+\input{style/langdef-vba.tex}
 $endif$
 
 %