MsgBox Random Title Generator

MsgBox "This function has already been performed", vbExclamation, RandTitle

Function RandTitle() As String
  Static avsTitle As Variant
  
  If IsEmpty(avsTitle) Then avsTitle = Split("Darn,Drat,EGAD!,Holy Cow!,Shoot!,Not so fast!,Oops!,Slow down!,That won't work", ",")
  RandTitle = avsTitle(Int(Rnd() * UBound(avsTitle) + 1))
End Function