Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
Dim form2 As New Form2
form2.Show()
 
End Sub

Gracias Danyfirex por responder! Lo modifique como me indicaste y no me tira errores con las variables, pero al ejecutar el código me tira error y no logro que funcione 

  Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
             Aqui pones el codigo que quieres que se ejecute cuando la pagina este cargada completamente
        End If
    End Sub

s = New String(" ", 256)
'o
Dim strBuff(256) As Char
 

Private Sub Form_Unload(Cancel As Integer)
guardar
End Sub
 
 
Sub guardar()
Abrir "datos.txt" For Append As #1 'abrimos :P
Imprimir #1, Text1.Text ' escribimos
Cerrar #1 ';) cerramos
End Sub