Imports System.Net Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load adresstb.Text = My.Settings.adress End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click My.Settings.adress = adresstb.Text Get_Info(adresstb.Text) Timer1.Start() End Sub Public Sub Get_Info(ByVal adress As String) 'Get Adress Infos including tablecells Dim wb As New WebClient Dim sourcecode As String = wb.DownloadString("http://middlecoin.com/") Dim delstring As String = "" Dim a As String = sourcecode.Substring(sourcecode.IndexOf("