Use invalid parameter error for malformed input, tdf#106956 follow-up

... instead of invalid procedure call.

Change-Id: I812f4c7041db9a116e65a24afb85164b4dd498b6

basic/source/runtime/methods.cxx

@@ -2051,11 +2051,10 @@ RTLFUNC(CDateFromIso)
     (void)pBasic;
     (void)bWrite;
 
+    if ( rPar.Count() == 2 )
+    {
         do
         {
-        if ( rPar.Count() != 2 )
-            break;
-
             OUString aStr = rPar.Get(1)->GetOUString();
             const sal_Int32 nLen = aStr.getLength();
             if (nLen != 8 && nLen != 10)
@@ -2102,7 +2101,12 @@ RTLFUNC(CDateFromIso)
         }
         while (false);
 
+        SbxBase::SetError( ERRCODE_SBX_BAD_PARAMETER );
+    }
+    else
+    {
         StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT );
+    }
 }
 
 RTLFUNC(DateSerial)