OK, back to translation thing

CalloutTargetRef works with simple callouts, but I couldnt make it work with custom callouts or TextCallouts. All that data graphic thing became a deadend. I couldn't format values seperatly. So I started looking for another way. And found it

Now it's not perfect working but I am trying to make it work. ok, now about the idea.
I created a simple shape, linked data from excell, inserted text field with information from excel and added it document stencil. After that I added a VBA code to change the text field value in master. It works great, exept few things:
1. I had to make VBA on every page (easy part)
2. I cant add info in master shape sheet call Fields.Value through VBA(Type mismatch error when trying to set value to Prop.Row2), so I add a number in user defined cells and Fields.Value is calculated using if. At first sight it looked ok, but I noticed that values are not refreshing until I make Fields.Value cell formula local not inheritant.
I think there are two solutions, either to find a way to remove the error or to make a formula local every time I drop or copy master.
Any suggestions?
I suppose that there is unnecessary things in my code but I am just a beginer so any comments are highly appreciated
Sub LT_click()
Dim vsoMaster As Visio.Master
Dim vsoMasterCopy As Visio.Master
Dim vsoShape As Visio.Shape
Dim vsoCell As Visio.Cell
Dim vsoCell2 As Visio.Cell
Dim PagsObj As Visio.Pages
Dim PagObj As Visio.Page
'Changing master on all pages Set PagsObj = ActiveDocument.Pages
For Each PagObj In PagsObj
Set PagsObj = ActiveDocument.Pages
ActiveWindow.Page = PagObj.Name
'Selecting master Set vsoMaster = Visio.ActiveDocument.Masters.Item("TextTranslate")
Set vsoMasterCopy = vsoMaster.Open
'Selecting shape in master Set vsoShape = vsoMasterCopy.Shapes.Item(1)
'Selecting cell to change in shape's shapesheet Set vsoCell = vsoShape.CellsU("User.kalba")
vsoCell = 1
//Cell value is added and in the ShapeSheet text field there is formula =GUARD(IF(User.Kalba=1,Prop.Row_2,IF(User.Kalba=2,Prop.Row_3,"No Data"))) Set vsoCell2 = vsoShape.CellsU("Fields.value")
vsoCell2 = Prop.Row2 //here I get an error
'Closing and clearing master and shape Set vsoShape = Nothing
vsoMasterCopy.Close
Set vsoMasterCopy = Nothing
Set vsoMaster = Nothing
Next
End Sub