g := Module[{str, lis, numScores = 4},
  str = InputString[];
  lis = ToExpression[StringSplit[str, "+"]];

  If[Length[lis] != numScores,

   Beep[];
   Print[lis];
   Speak["Length is " <> ToString[Length[lis]]],

   Speak[Total[ToExpression[StringSplit[str, "+"]]]];
   Print[Total[ToExpression[StringSplit[str, "+"]]]];
   ]
  ]