Imports System

Imports HtmlAgilityPack

​

Public Class Form1

    Public Sub Main()

        Try

            Dim Web As New HtmlWeb()

            Dim doc As New HtmlDocument()

            doc = Web.Load("https://motherless.com/random/image")

            Dim Img as HtmlNode = doc.DocumentNode.SelectSingleNode("//div[@id='mediaspace-image-wrapper']/a/img")  

            Console.WriteLine(Img.Attributes("src").Value)

        Catch ex As Exception

            Console.WriteLine("Not Found !!")

        End Try

    End Sub

End Class