Option
Explicit
Public
Sub
Main()
Dim
dblA
As
Double
, dblB
As
Double
Dim
strValA
As
String
, strValB
As
String
, _
strFunc
As
String
dblA = 6.867
dblB = 2.2368
strValA = Replace$(
CStr
(dblA),
","
,
";"
, 1)
strValB = Replace$(
CStr
(dblB),
","
,
";"
, 1)
strFunc =
"fncArrResult"
&
"("
& strValA &
","
& strValB &
")"
Call
prcRunFunc(strFunc)
End
Sub