Private Sub opt5_Click()
On Error GoTo EmailError
Success = ShellExecute(0&, vbNullString, "mailto:[email protected]", vbNullString, "C:\", 1)
Exit Sub
EmailError:
MsgBox "There was an unexpected error while trying to initialise your email facilities. This may be because your computer does not have email facilities, or it may be because of a faulty installation."

End Sub

When I try to use this, I get a compile error that highlights ShellExecute in the 3rd line.

What do I need to do to get this to work?