Private Sub cmdRead_Click()
 
    Text1.Text = "loading..."
 
    Dim sData As String
        sData = Inet1.OpenURL( _
          "http://www.gutenberg.org/dirs/etext05/8jpfr10.txt")
 
        Text1.Text = sData
 
End Sub

Mit freundlichen Gr??en,
Andy G.