run something

here is the situation. text1 has a web address in it. i want command1 to go to that address when i click it. i know that if you go to start menu -> Run -> [web address here] it will go there. is there any way to do this

-Steve

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

Public Const SW_SHOWNORMAL = 1

Private Sub Command1_Click()
ShellExecute Me.hwnd, vbNullString, Text1.text, vbNullString, "c:\", SW_SHOWNORMAL
End Sub