Sub TestMdP()
Var1 = Mid((CDate(Now)), 1, 1)
Var2 = Mid((CDate(Now)), 2, 1)
Var3 = Mid((CDate(Now)), 4, 1)
Var4 = Mid((CDate(Now)), 5, 1)
Var5 = Application.WorksheetFunction.Small(Array(Var1 * 1, Var2 * 1, Var3 * 1, Var4 * 1), 1)
Var6 = Application.WorksheetFunction.Small(Array(Var1 * 1, Var2 * 1, Var3 * 1, Var4 * 1), 2)
Var7 = Application.WorksheetFunction.Small(Array(Var1 * 1, Var2 * 1, Var3 * 1, Var4 * 1), 3)
Var8 = Application.WorksheetFunction.Small(Array(Var1 * 1, Var2 * 1, Var3 * 1, Var4 * 1), 4)
var9 = Right(Application.WorksheetFunction.Max(Var1, Var2, Var3, Var4), 1)
var10 = Right(var9 + 1, 1)
var11 = Right(var9 + 2, 1)
var12 = Right(var9 + 3, 1)
VarA = Right(Var1 + Var5 + var9, 1)
VarB = Right(Var2 + Var6 + var10, 1)
VarC = Right(Var3 + Var7 + var11, 1)
VarD = Right(Var4 + Var8 + var12, 1)
VAR_E = VarA & VarB & VarC & VarD
MsgBox VAR_E
End Sub