Como puedo cortar una variable y copiar una parte en una variable y otra parte en otra

srodrigueza
21 de Abril del 2006
Necesito capturar de una caja de texto todo lo que haya hasta el sinbolo $, y eso colocarlo en otra variable. ¿Como puedo hacer esto???

LLE
21 de Abril del 2006
Con Instr y Mid, ejemplo:

Private Sub Command1_Click()
Dim cadena As String
Text1 = \"0000000$11111111\"
pos = InStr(Text1, \"$\")
If pos Then
cadena = Mid(Text1, 1, pos - 1)
End If

MsgBox cadena
End Sub

Saludos :)

www.recursosvisualbasic.com.ar
www.recursosflash.com.ar