Contoh Fungsi String di Vb.Net 2008

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("0911010")
        NPM.Items.Add("1002001")
        NPM.Items.Add("1102010")
        NPM.Items.Add("1111100")
        NPM.Items.Add("1202101")
      
    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Dim X As String
        X = Microsoft.VisualBasic.Mid(NPM.Text, 3, 2)
        Select Case X
            Case "11"
                PRODI.Text = "TEKNIK INFORMATIKA"
                JENJANG.Text = "S1"
            Case "02"
                PRODI.Text = "MANAJEMEN INFORMATIKA"
                JENJANG.Text = "D3"
        End Select
        NODAFTAR.Text = Microsoft.VisualBasic.Right(NPM.Text, 3)
        TAHUN.Text = "20" & Microsoft.VisualBasic.Left(NPM.Text, 2)


    End Sub
End Class