If App.PrevInstnace Then  
MsgBox "Ya está abierta esta aplicación"
End
End If

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)