Greetings,

How can I place a file name in text2 without showing the file extension?

If the filename is Abc.rtf, I want the text2 box only to show Abc.

Code:
Private Sub File2_Click()

 RTFtext1.LoadFile File2.Path & "\" & File2.FileName, rtfRTF

Text2= File2

End Sub