'Find the greeting based on current reputation
        Dim Greeting As IEnumerable(Of XElement) = _
        From el In nationData.<Nation>.<Greeting>
        Where CInt(el.@Rep) <= Reputation _
        Select el

        TextGreet.Text = Greeting.First.Value



        'Display a list of speach options based on reputation
        Dim SpeachOpts As IEnumerable(Of XElement) = _
        From el In nationData.<Nation>.<Option> _
        Where CInt(el.@Rep) <= Reputation _
        Select el

        For Each result In SpeachOpts
            ' Create a new Button
            Add_Button(result.Value)
        Next