Word - Guardar en word

Buenos días tengo el siguiente macros para guardar, lo único que necesito meterle una variable del texto a la hora de guardar


Sub Bueno()
'
' Bueno Macro
'
'
ActiveDocument.SaveAs FileName:="Ensayo prueba.docx", FileFormat:= _
wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
ActiveDocument.SendMail
End Sub


Por ejemplo saldria Ensayo prueba Variable.docx

urgente por favor