Dim Kayit As Variant
Dim FS As Object, Dosya As Object
Set FS = CreateObject("Scripting.FileSystemObject")
Set Dosya = FS.OpenTextFile("C:\Evren\Evren.txt")
Kayit = Dosya.ReadAll
'VB6 için
label1.caption= Kayit
'VBNET için
'label1.text=Kayit
Dosya.Close
dim duyuru as string
duyuru = Duyurucum.OpenUrl = "https://www.xxcccttt.com/duyuru.txt"
'Duyurucum.Url de olabilir tam hatırlamıyorum inet'i araştırırsan bulursun
caption1.text = duyuru