try using ChatGPT or CoPilot.
this one is an answer from ChatGPT:
Sub ReadMP3Properties()
Dim sh As Object, folder As Object, file As Object
Dim filePath As String, col As Integer
filePath = Application.GetOpenFilename("MP3 Files (*.mp3), *.mp3")
If filePath = "False" Then...