In the ThisDocument module of the VP Project there are built-in events. You could use the Document_ContentControlOnExit event like this:

Title you team dropdown list "Team Name" and title your plain text team fee "Team Fee" add this code.

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Dim lngIndex As Long
  Select Case ContentControl.Title
    Case "Team Name"
      For lngIndex = 1 To ContentControl.DropdownListEntries.Count
        If ContentControl.Range.Text = ContentControl.DropdownListEntries(lngIndex).Text Then
          ActiveDocument.SelectContentControlsByTitle("Team Fee").Item(1).Range.Text = ContentControl.DropdownListEntries(lngIndex).Value
          Exit For
        End If
      Next lngIndex
  End Select
lbl_Exit:
  Exit Sub
End Sub