Coder Forum

Hallo zusammen ,

hab hier ein VBS Code der zeigt mir in einer Form den unten angegebenen Text an wenn ich auf den Button klicke. Möchte diesen Code jetzt so erweitern das bei jedem klick auf den Button ein anderer Text erscheint hab da keine Ahnung wie ich das umsetzen soll mit einer Bedingung oder Schleife oder ???? Mit dem Button starte ich Sub Losung().

Vielen Dank für eine Idee oder einen Lösungsansatz



Option Explicit

Sub Losung()
Dim objFrmLos
Set objFrmLos = Applets("Losung").Forms("Form1").Pages("PAGE1").Controls

objFrmLos("textfeld").Text = " Hier ist der Text drin? "

Set objFrmLos = Nothing
End Sub