Public Function ArchiveFileName(strOriginFile) as String
    Dim dtmNow As Date
    Dim strNow As String

    dtmNow = Now()

    If Day(dtmNow) <  10  Then
        strNow =  "0 " & Day(dtmNow)
    Else
        strNow = Day(dtmNow)
    End If

    strNow = strNow &  "-"  & Left(MonthName(Month(dtmNow)),  3 ) &  "-"  & Right(Year(dtmNow),  2 )

    If Hour(dtmNow) <  10  Then
        strNow = strNow &  " @ 0 " & Hour(dtmNow)
    Else
        strNow = strNow &  " @ "  & Hour(dtmNow)
    End If

    If Minute(dtmNow) <  10  Then
        strNow = strNow &  "-0 " & Minute(dtmNow)
    Else
        strNow = strNow &  "-"  & Minute(dtmNow)
    End If

    ArchiveFileName = Left(strOriginFile, Len(strOriginFile) -  4 ) &  " "  & strNow & Right(strOriginFile,  4 )
End Function



Private Sub TestThisFunction()
    MsgBox ArchiveFileName( "Karamba.mdb" )
End Sub