koding VB menampilkan NPM

Public Class Form5
    Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("14110080")
        NPM.Items.Add("12100081")
        NPM.Items.Add("13090082")

    End Sub
    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Dim X As String
        Dim nopend As String
        Dim thn As String
        X = NPM.Text
        X = Microsoft.VisualBasic.Mid(X, 3, 2)
        nopend = Microsoft.VisualBasic.Right(NPM.Text, 4)
        thn = "20" & Microsoft.VisualBasic.Left(NPM.Text, 2)

        If X = "11" Then
            NAMA.Text = "YANGGI"
            jurusan.Text = "TKNIK INFORMATIKA"
            jenjang.Text = "S1"
            thnmasuk.Text = thn
            nonpend.Text = nopend

        ElseIf X = "10" Then
            NAMA.Text = "ANGGI"
            jurusan.Text = "Akutansi"
            jenjang.Text = "D1"
            thnmasuk.Text = thn
            nonpend.Text = nopend
        ElseIf X = "09" Then
            NAMA.Text = "DINA"
            jurusan.Text = "TEKNIK KOMPUTER"
            jenjang.Text = "S1"
            thnmasuk.Text = thn
            nonpend.Text = nopend
        Else
            NAMA.Text = "JULI"
            jurusan.Text = "MANAJMEN INFORMATIKA"
            jenjang.Text = "D1"
            thnmasuk.Text = thn
            nonpend.Text = nopend

        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PROSES.Click

        If NILAI.Text >= 100 Then
            KETERANGAN.Text = "A"
        ElseIf NILAI.Text >= 80 Then
            KETERANGAN.Text = "B"
        ElseIf NILAI.Text >= 70 Then
            KETERANGAN.Text = "C"
        ElseIf NILAI.Text >= 60 Then
            KETERANGAN.Text = "D"
        Else
            KETERANGAN.Text = "E"


        End If

    End Sub

    Private Sub BTNHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUS.Click
        NPM.Text = ""
        NAMA.Text = ""
        jurusan.Text = ""
        jenjang.Text = ""
        NILAI.Text = ""
        KETERANGAN.Text = ""
        nonpend.Text = ""
        thnmasuk.Text = ""

    End Sub

    Private Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click
        Me.Close()
    End Sub
End Class