次のms単位のデータ（7261001）がありまして、
そのデータを[02:01:01.001]に変換したいのですが、
良い方法はありますでしょうか？
（7261001）のデータはある2つの時刻の差分をミリ秒に変換した値です。
御手数ですがよろしくお願いします。
計算式が思い浮かばないんです。

良い方法かどうかは、解りませんが！
Private Sub Command1_Click()
    Dim myTime As Long
    myTime = 7261001
    MsgBox CDate(myTime / 86400000#) & Right$(Format$(CStr(myTime / 1000), "###.000"), 4)
End Sub

> 次のms単位のデータ（7261001）がありまして、
> そのデータを[02:01:01.001]に変換したいのですが、

「良い方法」かどうかは兎も角として、例えばこんな感じでしょうか。

    myTime = 7261001
    
    S = "[" & Format(DateAdd("s", myTime \ 1000, 0), "hh\:nn\:ss") _
      & "." & Format(myTime Mod 1000, "000") _
      & "]"

そして、もしも24時間(86400000ミリ秒)を越える可能性があるなら、こんな感じかな……。

    dt = DateAdd("s", myTime \ 1000, 0)
    S = "[" & Format(DateDiff("h", 0, dt), "00") _
      & ":" & Format(dt, "nn\:ss") _
      & "." & Format(myTime Mod 1000, "000") _
      & "]"

皆さんありがとうございました。
解決致しました。
こんなに簡単な方法があるんですね。