Option Explicit
 
Private Sub Command1_Click()
    Text1 = "Dies ist mein Text"
End Sub
 
Private Sub Command2_Click()
    Dim zufall As Integer
 
    zufall = Int(Rnd * 6 + 1)
    Text1 = CStr(zufall)
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1