求详细的脚本内容

Sub OnLButtonUp(Byval Item, Byval Flags, Byval x, Byval y)                          
Dim MSHFlex,Tag_F,Tag_E,Tag_Z,Tag_X,VALUE_E,row_i,col_j,Cell_Value,str01,Taget_row
Set Tag_F = HMIRuntime.Tags("TAG_F")
Set Tag_E = HMIRuntime.Tags("TAG_E")
Set Tag_Z = HMIRuntime.Tags("TAG_Z")
Set Tag_X = HMIRuntime.Tags("TAG_X")
Tag_F.Read
Tag_F.Value = 0
Tag_F.Write
Tag_E.Read
VALUE_E = FormatNumber(Tag_E.Value)
Set MSHFlex = ScreenItems.Item("MSHFlex")
'Msgbox(VALUE_E)
For row_i = 1 To MSHFlex.Rows-1
 str01 = MSHFlex.TextMatrix(row_i,1)
 Cell_Value = FormatNumber(str01)
 If Cell_Value <> VALUE_E Then
  'Msgbox(Cell_Value)
 Else
  Taget_row = row_i
  Exit For
 End If
Next
Tag_Z.Value = FormatNumber(MSHFlex.TextMatrix(Taget_row,3))
Tag_X.Value = FormatNumber(MSHFlex.TextMatrix(Taget_row,4))
Tag_Z.Write
Tag_X.Write
End Sub