Dim txt(1 To 5) As String
Dim txt_number As Integer
 
Private Sub ordneFragen()
txt(1) = "Wie geht es dir heute?"
txt(2) = "Was hast du heute an?"
txt(3) = "Warum liest du diesen Text?"
txt(4) = "Hast du einen Bruder?"
txt(5) = "Wo bist du?"
End Sub
 
Private Sub cmd_Click()
Randomize Timer
txt_number = Int(Rnd * 5) + 1
lbl.Caption = txt(txt_number)
End Sub