Dim eigo As Integer
        eigo = Val(TextBox1.Text)
        If eigo >= 90 Then
            Label2.Text = "½¨"
        ElseIf eigo >= 80 Then
            Label2.Text = "Í¥"
        ElseIf eigo >= 70 Then
            Label2.Text = "ÎÉ"
        ElseIf eigo >= 60 Then
            Label2.Text = "²Ä"
        Else
            Label2.Text = "ÉÔ²Ä"
        End If