gistfile1.vb

Private Function GetMessage() As String
    Dim items = New List(Of String)

    Dim d = XDocument.Load("http://pronama.azurewebsites.net/feed/")
    For Each i In d...<item>
        Dim msg = String.Format("old post: {0} {1}", i.<title>.Value, i.<guid>.Value)
        items.Add(msg)
    Next

    Dim r = New Random
    Return items(r.Next(items.Count))
End Function