Wert aus Imputpox in MsgBox verwenden

Private Sub CommandButton8_Click()
Dim dateiname As String
dateiname = InputBox("Save the file with the following syntax:" & vbCrLf & "RfC Name_Your  _
Name_YYYYMMDD " & vbCrLf & "" & vbCrLf & "e.g. New RfC Form_Peter_Pan_20071023", "INFORMATION")
If dateiname = "" Then
MsgBox "Not a valid filename!", vbOKOnly + vbExclamation, "ATTENTION"
Exit Sub
End If
ActiveWorkbook.SaveAs "C:\temp\" & dateiname & ".xls"
MsgBox "The file has been saved in the folder C:\temp!", vbOKOnly + vbInformation, " _
INFORMATION"
End Sub

Wie kriege ich nun in die letzte MsgBox auch den Dateiname der in die Inputbox eingeben wird zusätzlich zum Pfad angezeigt?
Danke und Gruss
Maruseru