Acc ho sbagliato stringa, allora il pezzo di codice è il seguente:
mciSendString "status cd position", s, Len(s), 0
track = CInt(Mid$(s, 1, 2))
min = CInt(Mid$(s, 4, 2))
sec = CInt(Mid$(s, 7, 2))

Label1.Caption = s
Label4.Caption = "[" & Format(track, "00") & "] " & Format(min, "00") _
& ":" & Format(sec, "00")

Non so perchè ma il tempo parte da 2