Private Sub fnShellUIHelperAddFavoriteVB()
    Dim objShellUIHelper As ShellUIHelper
    
    Set objShellUIHelper = New ShellUIHelper
        objShellUIHelper.AddFavorite "http://www.msn.com", "MSN Home Page"
    Set objShellUIHelper = Nothing
End Sub

<script language="JavaScript1.2" type="text/javascript">
 function CreateBookmarkLink() {

 title = "Webpage Title"; 
 url = "Webpage URL";

    if (window.sidebar) { // Mozilla Firefox Bookmark
        window.sidebar.addPanel(title, url,"");
    } else if( window.external ) { // IE Favorite
        window.external.AddFavorite( url, title); }
    else if(window.opera && window.print) { // Opera Hotlist
        return true; }
 }

 if (window.external) {
  document.write('<a href = 
     "javascript:CreateBookmarkLink()");">Add to Favorites</a>'); 
  } else  if (window.sidebar) {
  document.write('<a href = 
    "javascript:CreateBookmarkLink()");">Bookmark Page</a>'); 
 } else if (window.opera && window.print) { 
   document.write('<a href =
     "javascript:CreateBookmarkLink()");">Add Bookmark</a>');
 } 
</script>