Simply combine your two functions and concatenate the values returned.
Code:
Sub ShowMinMax()
Dim TheMin As Double, TheMax As Double
TheMin = WorksheetFunction.Min(Range("A:A"))
TheMax = WorksheetFunction.Max(Range("A:A"))
MsgBox "Min: " & TheMin & " Max: " & TheMax
End Sub