Como fazer conexão bidirecional por script no Change do ListBox?

[Flaavio (Flavio)]

Sub ListBox1_Change()

If Screen.Item(“ListBox1”).Selected(0) Then
MsgBox “Selecionado”

Source = “Rota2.Rota1.Value”
Application.GetObject(“Dados.Rota0”).Links.CreateLink “Value”, Source, 1
End If

End Sub

Nao ta dando muito certo nao