Oke Lets begin............................................. ................

You need NO module just a text box and button.

Put above you command codes
This:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) _
As Long

And now in the button

Dim Website As String 'Dim the variable website as a string
Website = Text1.Text 'store the information from text1 text into the variable Webiste
ShellExecute Me.hwnd, "open", Website, vbNullString, vbNullString, vbNormal 'Open your default broswer and



Add me +rep if I help you