В инете полно статей на счёт запуска второго экземпляра приложения. Но что-то этот пример не работает(!):
Private Sub Form_Load()
If App.PrevInstance Then
MsgBox "Уже запущен один экземпляр приложения! ", vbExclamation, Form.Caption
Unload Me
End If
End Sub