[RESOLVED] Hiding file extentions in a file list box

[EvanRG]

Sets the FileListBox path...

File2.Path = App.Path & "\ncaateams\"

Loads the .dat file into the appropriate places...

Private Sub Command2_Click()
File2.Path = App.Path & "\ncaateams\"
If File2.FileName = "" Then
yourmsg = MsgBox("Please select a team to load", 0, "Home Error")
Else
Open File2.Path & "\" & File2.FileName For Input As #2
Input #2, hname, hoff, heff, hdef, hhfa, hpic
Close #2
Home.Caption = (hname)
hOffense.Caption = (hoff)
hEfficiancy.Caption = (heff)
hDefense.Caption = (hdef)
homepic2.Picture = LoadPicture(File2.Path & "\" & hpic)
End If
Home.Visible = True
File1.Visible = False
File2.Visible = False
Command1.Visible = False
Command2.Visible = False
hOffense.Visible = True
hDefense.Visible = True
Label15.Visible = True
hrolls = hoff + vdef + hhfa
End Sub

So all that being shown, I'm looking to hide the ".dat" next to the file names because it's ugly.

Any help would be great and I only want to use a file list box and not switch to a list box or drop down menu.

Thanks guys!