the function of expressing ,(Comma) every thousand (cicode & ciVBA)

Hi, Everyone. I'm Kang.

I'm testing the function of expressing ,(Comma) every thousand in analog data.

Through several samples, I checked the functionality.

However, I've to use this function in Super Genie.

I created a function that uses ciVBA in cicode.
The return value of this function does not work normally, so it is not displayed on the screen.

Could you please help me if I have written something wrong

STRING
FUNCTION Test_Format(STRING sTag)

STRING sInput ;

STRING sOutput ;

REAL rPE = TagRead(sTag);

sInput = rPE ;
sOutput = VbCallReturn(VbCallRun(VbCallOpen("FormatTheReal", sInput)));
RETURN sOutput;

END

Function FormatTheReal (Byval iInVal As Single) As string
Dim sFormattedValue As String
Dim iTagValue As Single
iTagValue = iInVal
sFormattedValue = Format (iTagValue, "Standard")
FormatTheReal = sFormattedValue
End Function