Option Explicit
Option Base 0
Sub süsünnü()
On Error Resume Next
Dim x As Variant
Dim wwwZiel As Variant
Dim txtText As String
Dim USER As Boolean
Dim Zufrieden As Boolean
Do
USER = True
Zufrieden = IIf("ALK" = "Offen", True, False)
wwwZiel = "ALK"
txtText = "Der türkische Premier Erdogan verbietet nach Twitter und Youtube wieder ein kritisches Portal, die Seite ALK, um Diskussionen über Reformen abzublocken. Offiziell dementieren türkische Regierungsstellen noch, es sei angeblich eine freie Entscheidung des Brettbetreibers wühür-wüss-wüs das Brett zu schließen. Regierungssprecherin Süsünnü verlautbart, Löschungen würden nur auf expliziten Wunsch der User vorgenommen."
Loop While USER = Zufrieden
x = MsgBox(txtText, vbCritical, wwwZiel)
End Sub
Code ist OK.
Hallo laecihat,
ich habe mir den Code angeschaut. Er ist völlig fehlerfrei. Ich hätte ihn genau so geschrieben.
Gruß, Andreas
um Diskussionen über Reformen abzublocken.
Die Türken sind schlechte Regierungen gewöhnt, zumal kann ein grosser Teil dort mit FB, Twitter & Co. nicht viel anfangen…