basic: Drop unused variables in test scripts

Change-Id: I9893e8bed254dcac91fbc7abb5ab4817a28ba339
Reviewed-on: https://gerrit.libreoffice.org/38133
Tested-by: Jenkins <ci@libreoffice.org>
Reviewed-by: Takeshi Abe <tabe@fixedpoint.jp>

56 files changed, 0 insertions, 113 deletions

diff --git a/basic/qa/vba_tests/abs.vb b/basic/qa/vba_tests/abs.vb
index fc0c48a8eda3..bc9516fb606f 100644
--- a/basic/qa/vba_tests/abs.vb
+++ b/basic/qa/vba_tests/abs.vb
@@ -24,9 +24,6 @@ Function verify_testABS() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
-    Dim date1, date2 As Date   'variables for test
     Dim nr1, nr2 As Double
 
     testName = "Test ABS function"
diff --git a/basic/qa/vba_tests/array.vb b/basic/qa/vba_tests/array.vb
index 78714bacec7b..63f39bed7178 100644
--- a/basic/qa/vba_tests/array.vb
+++ b/basic/qa/vba_tests/array.vb
@@ -28,9 +28,6 @@ Function verify_testARRAY() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
-    Dim date1, date2 As Date   'variables for test
     Dim a, b, C As Variant
     a = Array(10, 20, 30)
     testName = "Test ARRAY function"
diff --git a/basic/qa/vba_tests/asc.vb b/basic/qa/vba_tests/asc.vb
index 2d8b3bcef141..813abe9f859d 100644
--- a/basic/qa/vba_tests/asc.vb
+++ b/basic/qa/vba_tests/asc.vb
@@ -24,9 +24,6 @@ Function verify_testASC() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
-    Dim date1, date2 As Date   'variables for test
     Dim nr1, nr2 As Double
 
     testName = "Test ASC function"
diff --git a/basic/qa/vba_tests/atn.vb b/basic/qa/vba_tests/atn.vb
index 69cc31ba48cd..4155a1cb2b93 100644
--- a/basic/qa/vba_tests/atn.vb
+++ b/basic/qa/vba_tests/atn.vb
@@ -23,9 +23,6 @@ Function verify_testATN() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
-    Dim date1, date2 As Date
     Dim nr1, nr2 As Double
     testName = "Test ATN function"
     On Error GoTo errorHandler
diff --git a/basic/qa/vba_tests/cbool.vb b/basic/qa/vba_tests/cbool.vb
index 43ef17496c0c..cf3b8224d0e7 100644
--- a/basic/qa/vba_tests/cbool.vb
+++ b/basic/qa/vba_tests/cbool.vb
@@ -24,8 +24,6 @@ Function verify_testCBool() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim res2, res1 As Boolean
     Dim a1, a2 As Integer
     testName = "Test CBool function"
diff --git a/basic/qa/vba_tests/cdate.vb b/basic/qa/vba_tests/cdate.vb
index d3af4db692a6..718712e93c04 100644
--- a/basic/qa/vba_tests/cdate.vb
+++ b/basic/qa/vba_tests/cdate.vb
@@ -23,8 +23,6 @@ Function verify_testCDate() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2 As Date   'variables for test
     testName = "Test CDate function"
     On Error GoTo errorHandler
diff --git a/basic/qa/vba_tests/cdbl.vb b/basic/qa/vba_tests/cdbl.vb
index 65839f956823..bb51c6a00e60 100644
--- a/basic/qa/vba_tests/cdbl.vb
+++ b/basic/qa/vba_tests/cdbl.vb
@@ -23,8 +23,6 @@ Function verify_testCdbl() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim nr1, nr2 As Double   'variables for test
     testName = "Test Cdbl function"
     On Error GoTo errorHandler
diff --git a/basic/qa/vba_tests/choose.vb b/basic/qa/vba_tests/choose.vb
index 10c18f1eb3d4..3d30cfce12ad 100644
--- a/basic/qa/vba_tests/choose.vb
+++ b/basic/qa/vba_tests/choose.vb
@@ -23,7 +23,6 @@ Function verify_testChoose() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
     Dim var1, var2
     testName = "Test Choose function"
 
diff --git a/basic/qa/vba_tests/chr.vb b/basic/qa/vba_tests/chr.vb
index 3d1ca56657b6..eb5aeb8dfb20 100644
--- a/basic/qa/vba_tests/chr.vb
+++ b/basic/qa/vba_tests/chr.vb
@@ -23,8 +23,6 @@ Function verify_testCHR() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim str1, str2 As String
     testName = "Test CHR function"
     On Error GoTo errorHandler
diff --git a/basic/qa/vba_tests/cint.vb b/basic/qa/vba_tests/cint.vb
index 0ddb6891dec0..6c1d53c93c61 100644
--- a/basic/qa/vba_tests/cint.vb
+++ b/basic/qa/vba_tests/cint.vb
@@ -23,8 +23,6 @@ Function verify_testCInt() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim nr1, nr2 As Integer   'variables for test
     testName = "Test CInt function"
 
diff --git a/basic/qa/vba_tests/clng.vb b/basic/qa/vba_tests/clng.vb
index 4ee4d5b692f2..768bafee19e6 100644
--- a/basic/qa/vba_tests/clng.vb
+++ b/basic/qa/vba_tests/clng.vb
@@ -23,8 +23,6 @@ Function verify_testCLng() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim nr1, nr2 As Long   'variables for test
     testName = "Test CLng function"
 
diff --git a/basic/qa/vba_tests/cos.vb b/basic/qa/vba_tests/cos.vb
index 18a663877a52..4f9d725742db 100644
--- a/basic/qa/vba_tests/cos.vb
+++ b/basic/qa/vba_tests/cos.vb
@@ -23,8 +23,6 @@ Function verify_testCOS() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim nr1, nr2 As Double   'variables for test
     testName = "Test COS function"
 
diff --git a/basic/qa/vba_tests/csng.vb b/basic/qa/vba_tests/csng.vb
index bdc44f645a0a..476cc6a6fd34 100644
--- a/basic/qa/vba_tests/csng.vb
+++ b/basic/qa/vba_tests/csng.vb
@@ -23,8 +23,6 @@ Function verify_testCSng() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim nr1, nr2 As Single   'variables for test
     Dim nr3 As Double
 
diff --git a/basic/qa/vba_tests/cstr.vb b/basic/qa/vba_tests/cstr.vb
index 6c852dfd8dcf..62258962a831 100644
--- a/basic/qa/vba_tests/cstr.vb
+++ b/basic/qa/vba_tests/cstr.vb
@@ -23,7 +23,6 @@ Function verify_testCStr() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
     Dim str2, str3
     Dim str1 As String   'variables for test
     testName = "Test CStr function"
diff --git a/basic/qa/vba_tests/cvdate.vb b/basic/qa/vba_tests/cvdate.vb
index 118d9e0ece21..58ef6ca7d673 100644
--- a/basic/qa/vba_tests/cvdate.vb
+++ b/basic/qa/vba_tests/cvdate.vb
@@ -23,8 +23,6 @@ Function verify_testCVDate() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2 As Date   'variables for test
     testName = "Test CVDate function"
     On Error GoTo errorHandler
diff --git a/basic/qa/vba_tests/cverr.vb b/basic/qa/vba_tests/cverr.vb
index 02ba4a5905ed..11707ba2517c 100644
--- a/basic/qa/vba_tests/cverr.vb
+++ b/basic/qa/vba_tests/cverr.vb
@@ -23,8 +23,6 @@ Function verify_testCVErr() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test CVErr function"
     On Error GoTo errorHandler
diff --git a/basic/qa/vba_tests/dateadd.vb b/basic/qa/vba_tests/dateadd.vb
index d62664f3c247..8de4f86ff040 100644
--- a/basic/qa/vba_tests/dateadd.vb
+++ b/basic/qa/vba_tests/dateadd.vb
@@ -23,8 +23,6 @@ Function verify_testDateAdd() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2 As Date   'variables for test
     testName = "Test DateAdd function"
     On Error GoTo errorHandler
diff --git a/basic/qa/vba_tests/datediff.vb b/basic/qa/vba_tests/datediff.vb
index dd5048d35c5a..1b5e7ebf449d 100644
--- a/basic/qa/vba_tests/datediff.vb
+++ b/basic/qa/vba_tests/datediff.vb
@@ -23,8 +23,6 @@ Function verify_testDateDiff() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1
     Dim date2
     testName = "Test DateDiff function"
diff --git a/basic/qa/vba_tests/datepart.vb b/basic/qa/vba_tests/datepart.vb
index 9dff5a31dd69..b07a04d97260 100644
--- a/basic/qa/vba_tests/datepart.vb
+++ b/basic/qa/vba_tests/datepart.vb
@@ -23,8 +23,6 @@ Function verify_testDatePart() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1   'variables for test
     Dim date2
     testName = "Test DatePart function"
diff --git a/basic/qa/vba_tests/dateserial.vb b/basic/qa/vba_tests/dateserial.vb
index 56a973ad5ee0..4b28f09d5840 100644
--- a/basic/qa/vba_tests/dateserial.vb
+++ b/basic/qa/vba_tests/dateserial.vb
@@ -16,8 +16,6 @@ End Function
 
 Function verify_testDateSerial() as String
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2 As Date
     passCount = 0
     failCount = 0
diff --git a/basic/qa/vba_tests/datevalue.vb b/basic/qa/vba_tests/datevalue.vb
index 3863363f7a60..6ece72a6d055 100644
--- a/basic/qa/vba_tests/datevalue.vb
+++ b/basic/qa/vba_tests/datevalue.vb
@@ -23,8 +23,6 @@ Function verify_testDateValue() as String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2 As Date
     testName = "Test DateValue function"
     date2 = 25246
diff --git a/basic/qa/vba_tests/day.vb b/basic/qa/vba_tests/day.vb
index 408d7b81d9e1..1bb4fbef9dcf 100644
--- a/basic/qa/vba_tests/day.vb
+++ b/basic/qa/vba_tests/day.vb
@@ -23,8 +23,6 @@ Function verify_testday() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2   'variables for test
     testName = "Test day function"
     On Error GoTo errorHandler
diff --git a/basic/qa/vba_tests/error.vb b/basic/qa/vba_tests/error.vb
index 8787c891c824..fd96f80b14d0 100644
--- a/basic/qa/vba_tests/error.vb
+++ b/basic/qa/vba_tests/error.vb
@@ -23,8 +23,6 @@ Function verify_testError() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test Error function"
     On Error GoTo errorHandler
diff --git a/basic/qa/vba_tests/exp.vb b/basic/qa/vba_tests/exp.vb
index 7de010ae911b..e6f5a5a06616 100644
--- a/basic/qa/vba_tests/exp.vb
+++ b/basic/qa/vba_tests/exp.vb
@@ -23,8 +23,6 @@ Function verify_testExp() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test Exp function"
     On Error GoTo errorHandler
diff --git a/basic/qa/vba_tests/fix.vb b/basic/qa/vba_tests/fix.vb
index db1aedaa2c74..95235f335e69 100644
--- a/basic/qa/vba_tests/fix.vb
+++ b/basic/qa/vba_tests/fix.vb
@@ -23,8 +23,6 @@ Function verify_testFix() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test Fix function"
     On Error GoTo errorHandler
diff --git a/basic/qa/vba_tests/formatnumber.vb b/basic/qa/vba_tests/formatnumber.vb
index 0f4c7be5a5d3..3132e58edb54 100644
--- a/basic/qa/vba_tests/formatnumber.vb
+++ b/basic/qa/vba_tests/formatnumber.vb
@@ -25,8 +25,6 @@ Function verify_testFormatNumber() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test FormatNumber function"
     On Error GoTo errorHandler
diff --git a/basic/qa/vba_tests/hex.vb b/basic/qa/vba_tests/hex.vb
index af0bb9577671..83af4c148338 100644
--- a/basic/qa/vba_tests/hex.vb
+++ b/basic/qa/vba_tests/hex.vb
@@ -23,8 +23,6 @@ Function verify_testHex() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test Hex function"
     On Error GoTo errorHandler
diff --git a/basic/qa/vba_tests/hour.vb b/basic/qa/vba_tests/hour.vb
index 3383fc7bf742..9236463f42e8 100644
--- a/basic/qa/vba_tests/hour.vb
+++ b/basic/qa/vba_tests/hour.vb
@@ -23,8 +23,6 @@ Function verify_testHour() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2, myTime
     testName = "Test Hour function"
     On Error GoTo errorHandler
diff --git a/basic/qa/vba_tests/iif.vb b/basic/qa/vba_tests/iif.vb
index 90891d01279f..fd77563e52df 100644
--- a/basic/qa/vba_tests/iif.vb
+++ b/basic/qa/vba_tests/iif.vb
@@ -23,8 +23,6 @@ Function verify_testIIf() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2, testnr
     testName = "Test IIf function"
     On Error GoTo errorHandler
diff --git a/basic/qa/vba_tests/instr.vb b/basic/qa/vba_tests/instr.vb
index 0e3eb7e5230e..b8977088ba83 100644
--- a/basic/qa/vba_tests/instr.vb
+++ b/basic/qa/vba_tests/instr.vb
@@ -23,8 +23,6 @@ Function verify_testInStr() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2, SearchString, SearchChar
     testName = "Test InStr function"
     On Error GoTo errorHandler
diff --git a/basic/qa/vba_tests/instrrev.vb b/basic/qa/vba_tests/instrrev.vb
index 5d524f5c2b1a..dfbed9ad239b 100644
--- a/basic/qa/vba_tests/instrrev.vb
+++ b/basic/qa/vba_tests/instrrev.vb
@@ -23,8 +23,6 @@ Function verify_testInStrRev() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2, SearchString, SearchChar
     testName = "Test InStrRev function"
     On Error GoTo errorHandler
diff --git a/basic/qa/vba_tests/int.vb b/basic/qa/vba_tests/int.vb
index ad771a142ae8..c5495a87d5f9 100644
--- a/basic/qa/vba_tests/int.vb
+++ b/basic/qa/vba_tests/int.vb
@@ -23,8 +23,6 @@ Function verify_testInt() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test Int function"
     On Error GoTo errorHandler
diff --git a/basic/qa/vba_tests/isarray.vb b/basic/qa/vba_tests/isarray.vb
index 75b806731633..3f7dc8a8c265 100644
--- a/basic/qa/vba_tests/isarray.vb
+++ b/basic/qa/vba_tests/isarray.vb
@@ -23,8 +23,6 @@ Function verify_testIsArray() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     Dim MyArray(1 To 5) As Integer, YourArray    ' Declare array variables.
     testName = "Test IsArray function"
diff --git a/basic/qa/vba_tests/isdate.vb b/basic/qa/vba_tests/isdate.vb
index 01687b275c27..355c9bb8b942 100644
--- a/basic/qa/vba_tests/isdate.vb
+++ b/basic/qa/vba_tests/isdate.vb
@@ -23,8 +23,6 @@ Function verify_testIsDate() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test IsDate function"
     On Error GoTo errorHandler
diff --git a/basic/qa/vba_tests/isempty.vb b/basic/qa/vba_tests/isempty.vb
index f5dfa58b71f5..1080122fada3 100644
--- a/basic/qa/vba_tests/isempty.vb
+++ b/basic/qa/vba_tests/isempty.vb
@@ -23,8 +23,6 @@ Function verify_testIsEmpty() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2, MyVar
     testName = "Test IsEmpty function"
     On Error GoTo errorHandler
diff --git a/basic/qa/vba_tests/iserror.vb b/basic/qa/vba_tests/iserror.vb
index 36cb7ac0e173..943b4dcc2c10 100644
--- a/basic/qa/vba_tests/iserror.vb
+++ b/basic/qa/vba_tests/iserror.vb
@@ -23,8 +23,6 @@ Function verify_testIsError() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test IsError function"
     On Error GoTo errorHandler
diff --git a/basic/qa/vba_tests/isnull.vb b/basic/qa/vba_tests/isnull.vb
index 42a3cc2b156a..145294f6d961 100644
--- a/basic/qa/vba_tests/isnull.vb
+++ b/basic/qa/vba_tests/isnull.vb
@@ -23,8 +23,6 @@ Function verify_testIsNull() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test IsNull function"
     On Error GoTo errorHandler
diff --git a/basic/qa/vba_tests/isnumeric.vb b/basic/qa/vba_tests/isnumeric.vb
index 0331faaa0101..2383f4bfe299 100644
--- a/basic/qa/vba_tests/isnumeric.vb
+++ b/basic/qa/vba_tests/isnumeric.vb
@@ -23,8 +23,6 @@ Function verify_testIsNumeric() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test IsNumeric function"
     On Error GoTo errorHandler
diff --git a/basic/qa/vba_tests/isobject.vb b/basic/qa/vba_tests/isobject.vb
index 41c1d3173624..82a1a0aa39a6 100644
--- a/basic/qa/vba_tests/isobject.vb
+++ b/basic/qa/vba_tests/isobject.vb
@@ -23,7 +23,6 @@ Function verify_testIsObject() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
     Dim TestStr As String
     Dim MyObject As Object
     Dim date1, date2, YourObject
diff --git a/basic/qa/vba_tests/lbound.vb b/basic/qa/vba_tests/lbound.vb
index 934fa45b59dd..34999c534349 100644
--- a/basic/qa/vba_tests/lbound.vb
+++ b/basic/qa/vba_tests/lbound.vb
@@ -23,8 +23,6 @@ Function verify_testLBound() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     Dim MyArray(1 To 10, 5 To 15, 10 To 20)     ' Declare array variables.
     testName = "Test LBound function"
diff --git a/basic/qa/vba_tests/left.vb b/basic/qa/vba_tests/left.vb
index ab03fd55022f..8a6576fd2cbc 100644
--- a/basic/qa/vba_tests/left.vb
+++ b/basic/qa/vba_tests/left.vb
@@ -23,8 +23,6 @@ Function verify_testLeft() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test Left function"
     On Error GoTo errorHandler
diff --git a/basic/qa/vba_tests/len.vb b/basic/qa/vba_tests/len.vb
index 600da8ad5fbd..d524d96b8af1 100644
--- a/basic/qa/vba_tests/len.vb
+++ b/basic/qa/vba_tests/len.vb
@@ -23,8 +23,6 @@ Function verify_testLen() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test Len function"
     On Error GoTo errorHandler
diff --git a/basic/qa/vba_tests/log.vb b/basic/qa/vba_tests/log.vb
index 1312717b8590..675798bc1a72 100644
--- a/basic/qa/vba_tests/log.vb
+++ b/basic/qa/vba_tests/log.vb
@@ -23,8 +23,6 @@ Function verify_testLog() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test Log function"
     On Error GoTo errorHandler
diff --git a/basic/qa/vba_tests/ltrim.vb b/basic/qa/vba_tests/ltrim.vb
index 1f95d067e12e..d85d02a76966 100644
--- a/basic/qa/vba_tests/ltrim.vb
+++ b/basic/qa/vba_tests/ltrim.vb
@@ -23,8 +23,6 @@ Function verify_testLTrim() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test LTrim function"
     On Error GoTo errorHandler
diff --git a/basic/qa/vba_tests/mid.vb b/basic/qa/vba_tests/mid.vb
index 9ec61afc2206..b7070b33b86d 100644
--- a/basic/qa/vba_tests/mid.vb
+++ b/basic/qa/vba_tests/mid.vb
@@ -23,8 +23,6 @@ Function verify_testMid() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test Mid function"
     On Error GoTo errorHandler
diff --git a/basic/qa/vba_tests/minute.vb b/basic/qa/vba_tests/minute.vb
index 049884bffac0..20761b1e70cd 100644
--- a/basic/qa/vba_tests/minute.vb
+++ b/basic/qa/vba_tests/minute.vb
@@ -23,8 +23,6 @@ Function verify_testMinute() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test Minute function"
     On Error GoTo errorHandler
diff --git a/basic/qa/vba_tests/mirr.vb b/basic/qa/vba_tests/mirr.vb
index 36efb0a25065..ebf35ea3b0e8 100644
--- a/basic/qa/vba_tests/mirr.vb
+++ b/basic/qa/vba_tests/mirr.vb
@@ -23,8 +23,6 @@ Function verify_testMIRR() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2, LoanAPR, InvAPR, Fmt, RetRate, Msg
     testName = "Test MIRR function"
     On Error GoTo errorHandler
diff --git a/basic/qa/vba_tests/month.vb b/basic/qa/vba_tests/month.vb
index 8fedc954d81f..98d614a571b2 100644
--- a/basic/qa/vba_tests/month.vb
+++ b/basic/qa/vba_tests/month.vb
@@ -23,8 +23,6 @@ Function verify_testMonth() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     Dim ldate As Date
     testName = "Test Month function"
diff --git a/basic/qa/vba_tests/monthname.vb b/basic/qa/vba_tests/monthname.vb
index 0db37d296e92..fe90f14dba01 100644
--- a/basic/qa/vba_tests/monthname.vb
+++ b/basic/qa/vba_tests/monthname.vb
@@ -23,8 +23,6 @@ Function verify_testMonthName() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2 
     testName = "Test MonthName function"
     On Error GoTo errorHandler
diff --git a/basic/qa/vba_tests/nper.vb b/basic/qa/vba_tests/nper.vb
index e81b739658dd..2677a883c78c 100644
--- a/basic/qa/vba_tests/nper.vb
+++ b/basic/qa/vba_tests/nper.vb
@@ -23,8 +23,6 @@ Function verify_testNPer() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test NPER function"
     On Error GoTo errorHandler
diff --git a/basic/qa/vba_tests/npv.vb b/basic/qa/vba_tests/npv.vb
index 9992de7845cc..cc6262a81189 100644
--- a/basic/qa/vba_tests/npv.vb
+++ b/basic/qa/vba_tests/npv.vb
@@ -23,8 +23,6 @@ Function verify_testNPV() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test NPV function"
     On Error GoTo errorHandler
diff --git a/basic/qa/vba_tests/oct.vb b/basic/qa/vba_tests/oct.vb
index d75764e267aa..52feef2c8146 100644
--- a/basic/qa/vba_tests/oct.vb
+++ b/basic/qa/vba_tests/oct.vb
@@ -23,8 +23,6 @@ Function verify_testOct() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test Oct function"
     On Error GoTo errorHandler
diff --git a/basic/qa/vba_tests/pmt.vb b/basic/qa/vba_tests/pmt.vb
index 4998dd492fe0..937f7e6f1b58 100644
--- a/basic/qa/vba_tests/pmt.vb
+++ b/basic/qa/vba_tests/pmt.vb
@@ -23,8 +23,6 @@ Function verify_testPMT() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test PMT function"
     On Error GoTo errorHandler
diff --git a/basic/qa/vba_tests/ppmt.vb b/basic/qa/vba_tests/ppmt.vb
index 984c97ff3b6e..47a67b120de4 100644
--- a/basic/qa/vba_tests/ppmt.vb
+++ b/basic/qa/vba_tests/ppmt.vb
@@ -23,8 +23,6 @@ Function verify_testPPMT() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test PPMT function"
     On Error GoTo errorHandler
diff --git a/basic/qa/vba_tests/pv.vb b/basic/qa/vba_tests/pv.vb
index e951c66f119c..d63d6f355b78 100644
--- a/basic/qa/vba_tests/pv.vb
+++ b/basic/qa/vba_tests/pv.vb
@@ -23,8 +23,6 @@ Function verify_testPV() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2
     testName = "Test PV function"
     On Error GoTo errorHandler
diff --git a/basic/qa/vba_tests/qbcolor.vb b/basic/qa/vba_tests/qbcolor.vb
index aebfc4ff4bf8..c0a1a1813156 100644
--- a/basic/qa/vba_tests/qbcolor.vb
+++ b/basic/qa/vba_tests/qbcolor.vb
@@ -23,8 +23,6 @@ Function verify_testQBcolor() As String
     result = "Test Results" & Chr$(10) & "============" & Chr$(10)
 
     Dim testName As String
-    Dim TestDateTime As Date
-    Dim TestStr As String
     Dim date1, date2 As Long
     testName = "Test QBcolor function"
     On Error GoTo errorHandler