Private Sub Command1_click()
Dim ZufallsZahl
Randomizer:
ZufallsZahl = GetRandomNum(0, 30)
If ZufallsZahl = Label1.Caption Then GoTo Randomizer
Label1.Caption = Namen(ZufallsZahl)
End Sub
 
Public Function GetRandomNum(Min As Long, Max As Long) As Long
    GetRandomNum = Int(Rnd * (Max - Min + 1) + Min)
End Function
 
Private Sub Form_Load()
Randomize
Namen(0) = "Henry"
Namen(1) = "Matthias"
' ...
End Sub