Trim letters of a string

I made my own mp3 player and I am sick and tired of having .mp3 on the end of my songs name. I have a common dialog control that adds the songs to a list box. So is there a way to trim the filetitle of the commondialog control so that it is Metallica - For Whom The Bells Toll instead of Metallica - For Whom The Bells Toll.mp3

Thank you!!

Try this

Code:

---

Private Sub Command1_Click()
Dim this As String
this = "Nameofsong.mp3"
MsgBox Left(this, Len(this) - 4)
End Sub

---

You are the greatest!!!!!! Thank you so very much!!!!!