SGD VBDN03C Fachinformatiker und ich hänge

Hallo zusammen,

ich hänge hier bei folgender Frage:
Am Code ist nicht alles richtig. untersterichen sie syntaxfeher dort wo sie erstmals auftreten un benennen sie sie.

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

soweit bin ich, weiss aber nicht ons richtig ist:
Dim a As Integer
a = 1
If a >= 50 Then
TextBox1.BackColor = Color.Red
Else
TextBox1.BackColor = Color.Green
End If

wie ghets nun weiter?

Danke