Private Sub Navigate(ByVal address As String) If address.Equals("http://seznam.cz") Then msgbox "Zoznam sux" End Sub