Como extraer 2 letras de un registro y mostrarlas en un datagrid

[heruxz]

Hola

Soy nuevo en la programacion y estoy desarrollando un pequeño sistema en vb.net 2010... en este momento necesito un codigo que me ayude a extraer 2 letras de un registro. por ejemplo: assdVEaspo supongamos que ese codigo sea el registro y necesito extraer las letras VE como le haria?

Siguiendo con esto esas 2 letras que extraigo necesito que se me muestren en un datagrid junto con los otros campos para luego almacenarlos a la bd..

asi es el codigo que uso actualmente para cargar el datagrid y para almacenarlo en la bd:

Código:

Imports System.Data.OleDb 'Importacion necesaria para trabajar con ficheros excel

Public Class frmInclusionantigua
    'EVENTO CLICK DEL BOTON XLSX
    Private Sub btnXLS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnXLSX.Click
        'Instanciamos nuestro cuadro de dialogo
        Dim openFileDialog1 As New OpenFileDialog
        'Directorio Predeterminado
        openFileDialog1.InitialDirectory = "C:\"
        'Filtramos solo archivos con extension *.xlsx
        openFileDialog1.Filter = "Archivos de Microsoft Office Excel (*.xlsx)|*.xlsx"
        'Si se presiona abrir entonces...
        If openFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            'Asignamos la ruta donde se almacena el fichero excel que se va a importar
            txtRutaXLS.Text = openFileDialog1.FileName

            'Instanciamos nuestra cadena de conexion especial para excel,indicando la ruta del fichero
            Dim cadconex As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Me.txtRutaXLS.Text.Trim & ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"""
            Dim cn As New OleDb.OleDbConnection(cadconex)
            Dim cmd As New OleDbCommand
            Dim da As New OleDb.OleDbDataAdapter
            Dim dt As New DataTable

            cmd.Connection = cn
            'Consultamos la hoja llamada GENERAL$ de nuestro archivo *.xlsx
            cmd.CommandText = "select * from [GENERAL$]"
            cmd.CommandType = CommandType.Text
            da.SelectCommand = cmd
            'Llenamos el datatable
            da.Fill(dt)
            'Llenamos el Datagridview
            dgvImportacion.DataSource = dt
            'Ajustamos las columnas del DataGridView
            dgvImportacion.AutoSizeColumnsMode = 6
        End If
    End Sub
    Private Sub btnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalir.Click
        Me.Visible = False
        Me.Dispose()
        frmMenu.Show()
    End Sub

    Private Sub btnGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuardar.Click
        Dim cn As New MySqlConnection(frmConexion.ConexionMySQL)
        cn.Open()
        Try

            Dim sqli As String = "INSERT INTO operaciones (campo1,campo2,campo3)" & _
                                 "VALUES (@campo1,@campo2,@campo3)"

            'Recorremos el Datagridview
            For Each fila As DataGridViewRow In dgvImportacion.Rows
                'Dependiendo del Datagrid se colocan las filas
                Dim cmd As New MySqlCommand(sqli, cn)
                cmd.Parameters.AddWithValue("@campo1", fila.Cells(1).Value)
                cmd.Parameters.AddWithValue("@campo2", fila.Cells(2).Value)
                cmd.Parameters.AddWithValue("@campo3", fila.Cells(3).Value)
                'Ejecutar instruccion sql Insert
                cmd.ExecuteNonQuery()
            Next
            MessageBox.Show("Registros Ingresados con Exito...")
        Catch ex As Exception
            'Anunciamos el error si lo hay
            MsgBox(ex.Message.ToString)
            MsgBox("no se pudo cargar a la base de datos")
        End Try
    End Sub
End Class