Dim j As Long
Dim AktuellesMaximum As Long
Dim BesterKandidat As Long
 
AktuellesMaximum = 0
BesterKandidat = 1
 
For j = 1 To KandidatenZahl
   If Stimmen(j) > AktuellesMaximum Then
      AktuellesMaximum = Stimmen(j)
      BesterKandidat = j
   End If
Next j
 
MsgBox "Der Gewinner ist " & KandidatenName(BesterKandidat) & " mit " & CStr( _
  AktuellesMaximum) & " Stimmen."