--- joko/ToolBox/Windows/VpnDial/src/CommandLine.cls	2005/09/28 20:36:46	1.1
+++ joko/ToolBox/Windows/VpnDial/src/CommandLine.cls	2005/11/18 18:57:46	1.3
@@ -47,12 +47,16 @@
             'Debug.Print "key: " & key
             switches.add key
             'switches.item(i + 1) = key
+            
+            On Error Resume Next
             If (value <> "") Then
                 options.add readValue(value), key
                 i = i + 1
             Else
                 options.add 1, key
             End If
+            On Error GoTo 0
+            
         End If
         
     Next i
@@ -101,13 +105,13 @@
 
 Private Function readSwitch(arg As String) As String
     If (Left(arg, 2) = "--") Then
-        readSwitch = LCase(Mid(arg, 3))
+        readSwitch = Mid(arg, 3)
     End If
 End Function
 
 Private Function readArgument(arg As String) As String
     If (Left(arg, 2) <> "--") Then
-        readArgument = LCase(arg)
+        readArgument = arg
     End If
 End Function
 
