[RESOLVED] How to use Left(or something like it)

[demotivater]

You can use the replace function to get rid of it.

strMessage = replace(strMessage, "BOX:", "")

[oceanebelle]

You can use the replace function to get rid of it.

strMessage = replace(strMessage, "BOX:", "")

good one sorry did not see that.

[BladeZ]

this is what im trying to do

SERVER

Form1.winsock.SendData "BOX:" & txtmsg.Text

Client

If strinput = "BOX:" Then
stroutput = Replace(incommingData, "BOX:", "")
msgbox stroutput, vbCritical, "Admin Message"
End If

[dglienna]

Or this:

Option Explicit
 
Private Sub Form_Load()
  Dim t$
  t = "Box: test"
  MsgBox Trim(Right$(t, InStr(t, ":")))
End Sub

[BladeZ]

none of those things are working can you give me some other things?

[demotivater]

How is the variable "incomingdata" being filled?

Try something like this (assumes strinput is from winsock send data)

If InStr(strinput, "BOX:") > 0 Then
    stroutput = Replace(strinput, "BOX:", "")
    MsgBox stroutput, vbCritical, "Admin Message"
End If

[BladeZ]

How is the variable "incomingdata" being filled?

Try something like this (assumes strinput is from winsock send data)

If InStr(strinput, "BOX:") > 0 Then
    stroutput = Replace(strinput, "BOX:", "")
    MsgBox stroutput, vbCritical, "Admin Message"
End If

thanks man that works perfect