Private Sub Command1_Click() dim sWebSite as string sWebSite= trim(combo1.text) if len(sWebSite)>0 then WebBrowser.Navigate sWebSite end if End Sub