diff --git a/VECTOAux/VectoAuxiliariesTests/UnitTests/SSMTOOLTests.vb b/VECTOAux/VectoAuxiliariesTests/UnitTests/SSMTOOLTests.vb
index e336f360b1e8838b7786e9f67427c10c0953327c..30dc6b4560deb72206a5d403cc5f3f1b9521e8db 100644
--- a/VECTOAux/VectoAuxiliariesTests/UnitTests/SSMTOOLTests.vb
+++ b/VECTOAux/VectoAuxiliariesTests/UnitTests/SSMTOOLTests.vb
@@ -14,7 +14,7 @@ Namespace UnitTests
 		Private Const GOODTechListEMPTYLIST As String = "TestFiles\testSSMTechBenefitsEMPTYLIST.csv"
 
 		'Helpers
-		Private Function AddDefaultTechLine(source As ISSMTOOL)
+		Private Sub AddDefaultTechLine(source As ISSMTOOL)
 
 			Dim src As SSMTOOL = DirectCast(source, SSMTOOL)
 
@@ -45,7 +45,7 @@ Namespace UnitTests
 			Dim feedback As String = String.Empty
 
 			Assert.IsTrue(src.TechList.Add(newItem, feedback))
-		End Function
+		End Sub
 
 		'SSMGenInputTests
 		<Test()> _