Dim ver as string=1.0
My.Computer.Network.DownloadFile("https://123.com/*.txt","yourname.txt")
Dim newver as string=My.Computer.Filesystem.ReadAllText("yourname.txt")
-------------------
'判斷版本
If ver=newver Then
MsgBox("目前是最新版本")
Else
MsgBox("已有新版本 請前往下載")
End IF