Shell function to open Calculator

[David Ball]

Hi,
I want to open the Calculator by clicking a command button (using the On Click event).
I have tried the code below but can’t get it working. What do I need to change?

Private Sub Command7_Click()
Dim RetVal As Integer
RetVal = Shell("C:\Windows\calc.exe", 1)
End Sub

Thanks very much
Dave

 

[JHB]

Try the below:

  Dim RetVal As Variant
  RetVal = Shell("calc.exe", 1)

 

[David Ball]

That works. Thanks very much.

(I couldn't find the "Thumbs Up" to click it!)