Buen día,
tengo dos textbox, en el textbox NOMBRE ingreso algún texto, por ejemplo CANAL VISUAL BASIC. En el otro textbox FOLIO, necesito extraer las dos primeras letras de cada palabra, la cual quedaría así: CAVIBA.
Tengo este código pero me sale error "Indice fuera de los límites de la matriz"
Qué estoy haciendo mal?Código:Dim cadena As String = UCase(Trim(NombreTextBox.Text)) Dim v() As String v = cadena.Split(" ") Try FolioTextBox.Text = v(0).ToString & v(1).ToString & v(2).ToString FolioTextBox.Text = Mid(v(0).ToString, 1, 2) & Mid(v(1).ToString, 1, 3) & Mid(v(2).ToString, 1, 3) Catch ex As Exception MsgBox(ex.Message) End Try