Dim mp As MediaPlayer
mp.Load(File.DirDefaultExternal, "MyVideo.mp4")
seconds = Floor(mp.Duration / 1000 Mod 60)
minutes = Floor(mp.Duration / (1000 * 60) Mod 60)
hours = Floor(mp.Duration / (1000 * 60 * 60) Mod 24)
Duration = NumberFormat(hours, 2, 0) & ":" & NumberFormat(minutes, 2, 0) & ":" & NumberFormat(seconds, 2, 0)
MsgBox("File Duration: " & Duration, "")