Получение имени текущего файла без расширения

Sub FileName()
    Dim Name1 As String  'Имя файла
    Dim String1 As String  'Имя файла без расширения
    Dim x As Integer  'Номер знака последнего вхождения точки в строку
    Name1 = ActiveDocument.Name
    x = InStrRev(Name1, ".") 'Ищет номер знака последнего вхождения точки в строку
    String1 = Left(Name1, x - 1)  'Отсекает расширение
    MsgBox String1
End Sub