Set Scale via Macro to TXT Box

[reneparm]

Hello,
I created a new Titleblock in Catia i used a catalog with all Sheet Formats in it.
I added some text boxes with different names like PartNumber, Definition and also Scale.

By searching, I found all the commands to read the Properties of a Part.

But now I need to print the Scale of the active View in the text box "Scale".

My current macro looks like this:

Dim sPartNumber ' As String
sPartNumber = prdSource.PartNumber
Dim txtPartNumber As DrawingText
Set txtPartNumber = vwBackgroundView.Texts.GetItem("PartNumber")


Can someone tell me how to read the scale an put it in the text box?

Thanks alot!

Rene