Private Function ReadOnlineFile(ByVal sLink As String) As String
Dim WebClient As System.Net.WebClient = New System.Net.WebClient()
Dim DownloadString As String = WebClient.DownloadString(sLink)
Return DownloadString
End Function
MsgBox(ReadOnlineFile("http://www.mpgh.net/forum/index.php"))

