Excel VBA Open File with Default Program

Sub Open_File()
    Dim file_Path As String
    'change to the file path you want to open
    file_Path = "C:\Users\USER\Desktop\Solved Excel.JPG"
    
    'Open the file with its default program
    Shell "explorer.exe """ & file_Path & """", vbNormalFocus
End Sub

Sub Open_File_With_Default_Program()
    Dim file_Path As String
    'change to the file path you want to open
    file_Path = "C:\Users\USER\Desktop\Solved Excel.JPG"
    
   ' Check if the file exists
    If Dir(file_Path) = "" Then
        MsgBox "File not found: " & file_Path, vbExclamation, "Error"
        Exit Sub
    End If
    
    'Open the file with its default program
    Shell "explorer.exe """ & file_Path & """", vbNormalFocus
    
End Sub