VB.NETのコードをエクセルVBAに

起動済みの外部アプリケーションのウィンドウをアクティブにしたくて試行・調べるを繰り返しています。
以下のコードを見つけたのですが、VBAで動作するように書き換えることができません。

'メモ帳のプロセスを探す
Dim ps As System.Diagnostics.Process() = _
System.Diagnostics.Process.GetProcessesByName("notepad")
If 0 < ps.Length Then
'見つかった時は、アクティブにする
Microsoft.VisualBasic.Interaction.AppActivate(ps(0).Id)
End If
（https://dobon.net/vb/dotnet/process/appactivate. …　より）

EXCEL2019を使用しています。
アクティブにしたいプログラムは
C:\Program Files\Fujitsu\WSMGR\T528.emd　で
タイトルバーには
T528.emd - DSPEMU
と表示されています。

見つけたコードをVBAで動くようにして試行錯誤したいのですが
一撃でわかる方がいればぜひすがりたいと愚考します・・・。

何卒ご教授お願いいたします(__)

質問者からの補足コメント

• そうですよね。申し訳ありません、説明不足でした。
  AppActivate titleでうまくいかなかったので
  別の方法を調べていました。

  No.1の回答に寄せられた補足コメントです。 補足日時：2020/03/01 14:14

• AppActivateの前にgetobjectやcreateobjectなどを入れていましたが、
  それを消したらうまくいきました。
  お騒がせしました！
  なぜなのかはわかりませんが･･･
  以下はうまくいったコードです。
  
  Dim MyFile As String
  MyFile = Dir("C:\Program Files\Fujitsu\WSMGR\????.emd")
  MyFile = Left(MyFile, 4) & " - DSPEMU"
  AppActivate MyFile, True

    補足日時：2020/03/03 19:38

No.1 回答者： めぐみん_ 回答日時： 2020/03/01 13:52

検証した訳ではないですが。

こちらは？

http://officetanaka.net/excel/vba/statement/AppA …