VBA message amendment when result is less than 2

[Ironman]

Hi

The below code is perfect when the result is 2 or more, but looks clumsy when it's only 1.

MsgBox Format(Date, "dddd d mmmm, yyyy") & ":" & vbNewLine & vbNewLine _
         & "If you're going for a run today, then before this run:" & vbNewLine & vbNewLine _
         & "- You were " & CLng(Range("MilesToNextYearEndTotal")) & " miles behind the " & Range("PreYear") & " year end total" & vbNewLine & vbNewLine _
         & "- You were " & CLng(Abs(.Value)) & " miles behind the " & Year(Now) - 1 & " year to date total", vbInformation, "Miles Run YTD"

I'd be really grateful for an amendment to the above that changes the message from "miles" to "mile" when the value of CLng(Range("MilesToNextYearEndTotal")) or CLng(Abs(.Value)) is 1.

Many thanks!

 

[Ironman]

Ahh, I didn't spot that. That's brilliant GWteB, it works perfectly now, thank you!

 

[GWteB]

You're welcome and thanks for the feedback.