Sgd brauche Hilfe bzw Tipps für folgende Aufgabe

    Hallo Leute bräuchte Hilfe bzw Tipps für die folgende Aufgabe wäre für jeden Tipp dankbar
    Am folgenden Code ist nicht alles richtig. Unterstreichen Sie die Syntaxfehler dort wo sie erstmals auftreten und benennen Sie sie kurz.
    Ich weiß das a = Textbox1 schon mal nicht stimmt oder?
    Dim a As Integer
    a = TextBox1
    If a > 50 Then
    BackColor = Color.Red Else
    BackColor = Color.Green
    End If
    Do
    a = a + 10
    Until a > 100
    Loop
    Else
    a = a + 10
    Loop While a <= 100
    End if
    End Sub

    Verstehe im Moment einfach nicht wie ich die benennen soll, steh voll auf dem Schlauch
    Danke im vorraus