codice:
Dim WithEvents wmp As New MediaPlayer.MediaPlayer

wmp.Open("./file.mp3")
wmp.Play()

msgbox("Posizione attuale in double = " & wmp.CurrentPosition)
Forse questo ti può aiutare ^^
Ho fatto delle prove e mi ritorna la posizione nel file


Edit : Scusate il doppio posT! non me ne sono accorto!