Dim a As Integer
 
     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
       System.EventArgs) Handles Button1.Click
        a = CInt(TextBox1.Text)
        If a < 10 Then
            TextBox2.Text = "Der Zahl ist kleiner als 10!"
        Else
            TextBox2.Text = "Die Zahl ist größer als 10!"
        End If
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        End
    End Sub
End Class