Public Saetze(2) as String

Private Sub Form_Load()
  Saetze(0) = "Das ist der erste Satz."
  Saetze(1) = "Das ist der zweite Satz."
  Saetze(2) = "Das ist der dritte Satz."
End Sub

Private Sub Command2_Click()
    Dim zufall As Integer
 
    zufall = Int(Rnd * 3)
    Text1 = Saetze(zufall)
End Sub