Private Sub Command1_Click()Open "C:\Windows\system32\drivers\etc\hosts " For Append As #1Print #1, "127.0.0.1" & " " & Text1.Text & " " & "localhost"Close #1 'se cierra el archivoText1.Text = ""Text1.SetFocusMsgBox ("Página bloqueada")End Sub