The solution presented at the top is dependent on whether the target system has IE. but someone has provided a better code a little lower.
Im just copying it below which should be the apt way of doing it.
Dim x As Long
x = ShellExecute(large.hwnd, "Open", "http://www.windostat.org", &O0, &O0, 0)