diff --git a/ComputingServices/Taskhost.d/test/Module1.vb b/ComputingServices/Taskhost.d/test/Module1.vb
index 67db831..0905419 100644
--- a/ComputingServices/Taskhost.d/test/Module1.vb
+++ b/ComputingServices/Taskhost.d/test/Module1.vb
@@ -13,6 +13,9 @@ Module Module1
         Dim exceptionInvoke = InvokeInfo.CreateObject(exceptionTask, {"Here is the exception message..."})
         Dim exceptionResult As Rtvl = RemoteCall.Invoke(exceptionInvoke)
 
+        ' throw exception at here
+        exceptionResult.GetValue()
+
         Pause()
     End Sub