Global CmdWahr As Long
Global CmdFalse As Long 
 
Sub Command1_Click()
   ....
  CmdWahr = CmdWahr + 1
  Label1.Caption = CmdWahr & " richtig(e) Antwort(en)!"
  ....
End Sub
 
Sub Command2_Click()
  ....
  CmdFalse = CmdFalse + 1
  Label1.Caption = CmdFalse & " falsche Antwort(en)!"
  ....
End Sub