SetSymbolValues Subroutine Example

In this example, we pass in two symbols with their corresponding substitution strings.

SetSymbolValues

Private Sub Oval1_Click()

Dim t(1, 1) As String

t(0, 0) = "AC" 'Symbol to substitute

t(0, 1) = "AIRCONDITIONER2" 'Actual substitution string

t(1, 0) = "TEST" 'Symbol to substitute

t(1, 1) = "Fix32.FXPR.AIRCONDITIONER2>MOTOR>TEMP.F_CV" 'Actual substitution string

Me.SetSymbolValues (t)

End Sub