aplikasi untuk menentukan predikai IP dengan vb 2008

kali ini saya memposting kembali aplikasi vb untuk menentukan predikat IP berdasarkan kategori yang telah di tentukan.
dibawah ini source code nya selamat mencoba!!!!
untuk ketentuan design formnya :
2 textbox= Txt1.text dan Txthasil.text
untuk buttonya ada 3 yakni= Btnperiksa,Btnhapus dan Btnkeluar
untuk desain backgroundnya sesuaikan selera masing-masing

Public Class Form1
    Dim angka As Decimal
    Private Sub Btnperiksa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnperiksa.Click


        If Txt1.Text = "" Then
            MessageBox.Show("anda belum memasukkan nilai anda", "error pengisian", MessageBoxButtons.OK, MessageBoxIcon.Error)
        ElseIf IsNumeric(Txthasil.Text) Then
            MessageBox.Show("pengisian anda salah ", "error pengisian", MessageBoxButtons.OK, MessageBoxIcon.Error)
        ElseIf Txt1.Text > 4.0 Then
            MessageBox.Show("nilai yang anda masukkan melibihi batas maksimal", "error pengisian", MessageBoxButtons.OK, MessageBoxIcon.Error)
        ElseIf Txt1.Text < 0.0 Then
            MessageBox.Show("nilai yang anda masukkan tidak terdaftar", "error pengisian", MessageBoxButtons.OK, MessageBoxIcon.Error)

        End If

        angka = CDec(Txt1.Text)
        If angka >= 3.5 And angka <= 4.0 Then
            Txthasil.Text = "nilai anda caumlade"
        ElseIf angka >= 3.0 And angka < 3.5 Then
            Txthasil.Text = "nilai anda amat baik"
        ElseIf angka >= 2.5 And angka < 3.0 Then
            Txthasil.Text = "nilai anda  baik"
        ElseIf angka >= 2.0 And angka < 2.5 Then
            Txthasil.Text = "nilai anda cukup"
        ElseIf angka >= 0.0 And angka < 2.0 Then
            Txthasil.Text = "anda tidak lulus"
        End If




    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        Txt1.Text = ""
        Txthasil.Text = ""



    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        Close()

    End Sub
End Class