save name

Sub FileSave()
‘Created by Sutrisno
‘http://trisnowlaharwetan.net
Dim FileName, MyName, FirstName
MyName = "trisno-"
a = Left(ActiveDocument.Name, 8)
If a = "Document" Then
Dialogs(wdDialogFileSaveAs).Show
End If
FirstName = ActiveDocument.Name
y = Left(FirstName, Len(MyName))
If y = MyName Then
FileName = ActiveDocument.Name
Else
FileName = MyName & ActiveDocument.Name
End If
ActiveDocument.SaveAs FileName
End Sub