|
Hallo,
'Main' geht noch kürzer:
Option Explicit
Public Sub Main() 'Main aufrufen....
Dim dblA As Double, dblB As Double
Dim strValA As String, strValB As String, _
strFunc As String
dblA = 6.867 '8
dblB = 2.2368 '0
strValA = Replace$(CStr(dblA), ",", ";", 1)
strValB = Replace$(CStr(dblB), ",", ";", 1)
strFunc = "fncArrResult" & "(" & strValA & "," & strValB & ")"
Call prcRunFunc(strFunc)
End Sub
Gruß,
|