--- joko/ToolBox/Windows/HylaPrintMon_MapiContactsDumper/ModuleUtils.bas	2007/09/01 15:18:39	1.1
+++ joko/ToolBox/Windows/HylaPrintMon_MapiContactsDumper/ModuleUtils.bas	2007/09/01 15:22:49	1.2
@@ -17,9 +17,14 @@
     args = Split(Command$, " ")
 
     Dim i As Integer
+    'MsgBox UBound(args)
     For i = 0 To UBound(args)
-        MsgBox args(i)
-        i = i + 1
+        'MsgBox i & ": " & args(i)
+        If args(i) = name Then
+            getCmdArg = args(i + 1)
+            'i = i + 1
+            Exit Function
+        End If
     Next
 
 End Function