I have problem, why does't work ?

Please!


Code:
Private Sub Command1_Click()

Dim a As String
a = "http://www.yahoo.com"

Shell a, vbNormalFocus

End Sub