Saludos, Gustavo
Respecto a lo que comentas, cortar una cadena, Visual Basic incorpora funciones predeterminadas que se dedican a realizar lo que pides.
Las más ''famosas'' son: Left, Right y Mid.
Aquí te las comento:
==========================================================
EXPLICACIÓN SOBRE LOS "CORTA-STRINGS":
LEFT RIGHT MID
POR ZOTO (lawebdelprogramador.com)
==========================================================
================
Left ->
================
Efectos: devuelve el número de carácteres dados de una cadena empezando desde la izquierda.
Parámetros:
-String -> contiene el String (cadena de texto) de donde sacar el texto
-Length -> contiene el número de carácteres a devolver desde la izquierda.
Ejemplo:
Dim Texto As String
Dim Salida As String
Texto = "holagustavo"
Salida = Left(Texto,4)
Entonces, Salida = "hola" (se cortan 4 carácteres desde la izquierda)
AVISOS:
-Si Length = 0, entonces se devuelve un String vacío.
-Si Length es igual o más grande que la cadena pasada, se devuelve la cadena entera
================
Right ->
================
Efectos: devuelve el número de carácteres dados de una cadena empezando desde la derecha
Parámetros:
-String -> contiene el String (cadena de texto) de donde sacar el texto
-Length -> contiene el número de carácteres a devolver desde la derecha.
Ejemplo:
Dim Texto As String
Dim Salida As String
Texto = "holagustavo"
Salida = Right(Texto,7)
Entonces, Salida = "gustavo" (se cortan 7 carácteres desde la derecha)
AVISOS:
-Si Length = 0, entonces se devuelve un String vacío.
-Si Length es igual o más grande que la cadena pasada, se devuelve la cadena entera
================
Mid->
================
Efectos: devuelve el número de carácteres dados de una cadena empezando desde un inicio de la cadena (Start) y siguiendo hasta un largo de carácteres (Length)
Parámetros:
-String -> contiene el String (cadena de texto) de donde sacar el texto
-Start -> contiene un Long que determina desde donde empezar a cortar
-Length -> contiene el número de carácteres a devolver desde Start.
Ejemplo:
Dim Texto As String
Dim Salida As String
Texto = "holagustavohola"
Salida = Mid(Texto,5,7)
Entonces, Salida = "gustavo" (se cortan 7 carácteres (Length) desde el inicio (Start) dado, que es 5 (en 5 se encuentra el primer carácter del nombre gustavo, es decir, g)
AVISOS:
-Si Start = 0, entonces se provocará el error 5 en tiempo de ejecución:
''Lamada a procedimiento o argumento no válidos"
Es decir, Start no puede ser 0.
-Si Start es más grande que la largada de la cadena dada, se devuelve cadena vacía.
-Si Length = 0, entonces se devuelve un String vacío.
-Si Length es igual o más grande que la cadena pasada, se devuelve la cadena entera
Si no se especifica Length (ya que es Opcional), se devuelve la cadena entera.
==========================================================
Pues bien, gustavo, espero que esta explicación te ayude a resolver lo que querías y a aprender un poco más sobre el tema de cortar Strings.
Lo que pedías, que creo que era obtener (cortar) el primer carácter de un String dado, se puede hacer fácilmente usando la función Left que aquí he comentado, haciendo algo así:
'=======================================
Dim Texto As String
Dim Salida As String
Texto = "hola"
Salida = Left(Texto,1) 'Se da 1 como Length devolviendo así el primer carácter del String pasado, es decir, Texto.
'Entonces, Salida = "h"
'=======================================
Espero que te sirva a ti y también a otros que estén interesados en esto.
Hasta otra,
Zoto