gracias amigo de maravilla lo hice asi
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
con esto ya podre hacer un buen cliente IRC el cual ademas le quiero dar otra utilidad
No me olvidare de ti amigo y cuando publique mi proxima creasion no me olvidare de Darte los mejores agradesimientos para TIII y a LeandroA otro gran amigo.
Salu2 LixKeÜ >>>>>>>>>>>>>>>>>>>>><