Private Sub Command1_Click()
Command3.Caption = "Es läuft! Klick hier zum Stopen"
Dim IeAppli As Object
Set IeAppli = CreateObject("InternetExplorer.Application")
 
IeAppli.Visible = True
IeAppli.Navigate2 "URL", True
Delay 10
SendKeys "/j wsj - c#000000 Mhz{Enter}", True
Delay 10
SendKeys "/me benützt ein Programm von Hiasi {Enter}"
13:
Delay 500
SendKeys "/f{Enter}"
If Wurstsemmel = False Then
GoTo 13
Else: Wurstsemmel = True
SendKeys "{Alt}{F4}"
End If
End Sub