Just some code

    Public Function CheckSoundDatabase()
        'System.Diagnostics.Process.Start("rundll32.exe", "InetCpl.cpl,ClearMyTracksByProcess 8")
        wait(5000)
        Dim wbCFU As New WebBrowser
        wbCFU.Navigate(New Uri("https://pastebin.com/raw/QPbFTnmr"))
        While wbCFU.IsBusy
            wait(100)
        End While
        wait(2000)
        Try
            Dim clean_me() = Split(wbCFU.DocumentText, "<PRE>")
            Dim clean_me2() = Split(clean_me(1), "</PRE>")
            Dim clean_me3() = Split(clean_me2(0), vbCrLf)
            For Each pre As String In clean_me3
                Dim out() = Split(pre, vbCrLf)
            Next
        Catch ex As Exception
            MsgBox("The sound database server may be offline try again later", vbInformation, "Error")
        End Try

    End Function