Foro de elhacker.net

cadena = "#caudal: Este es el mensaje"

separa = split(cadena,":")
text8 = separa(1)

cadena = "#caudal: Este es el mensaje"
text8 = right(cadena,len(cadena) - 8)

....
....'data serian los datos q llegan
If Left(data, 9) = "#causal :" Then Text2.Text = Right(Text1, Len(Text1) - 9)
...
...

If Left(Buffer, 9) = "#causal :" Then Text8.Text = Right(Text1, Len(Text1) - 9)

If Left(Buffer, 9) = "#causal :" Then Text8.Text = Right(Buffer, Len(Buffer) - 9)

Private Sub Text1_Change()
Dim VAriable As Integer
If InStrRev(Text1, "#causal :") <> 0 Then
VAriable = InStrRev(Text1, "#causal :") + 9
Text8 = Text8 & Mid(Text1, VAriable)
End If
End Sub

Private Sub Text1_Change(Index As Integer)
     Dim Identificador As Integer
     Dim Data As String
     Identificador = InStrRev(Text1(1), "#casual :")
     Data = Identificador + 9
     Data = Mid(Text1(1), Data)
     Text8 = Data
End Sub

Private Sub Text1_Change()
     Dim Identificador As Integer
     Dim Data As String
     Identificador = InStrRev(Text1, "#casual :")
     Data = Identificador + 9
     Data = Mid(Text1, Data)
     Text8 = Data
End Sub