Chat box and command box

I'm needing a code where I can type in something in in a text box, and it reads the first word of it, exampe:

If I type chat something
It prints this in the label box: You chat:Hello

If I type buy something
It prints: You bought something

here's an example how you can do this:

Code:

---

'codes: /c to chat, /b to buy, /q to quit, /s to shout
Private Sub Text1_KeyPress(KeyAscii As Integer)
 If KeyAscii = 13 Then
  KeyAscii = 0
  Text1.Text = ""
 
  CheckForCommand Text1.Text
 
End Sub
Sub CheckForCommand(CText As String)
 If Left(CText, 1) = "/" Then
  Select Case UCase$(Mid$(CText, 2, 1))
  Case "B"
    'user wants to buy something
  Case "C"
    'user chats
  Case "Q"
    'user wants to quit
  Case "S"
    'user shouts
  End Select
 End If
   
End Sub

---

[Edited by Razzle on 05-07-2000 at 07:36 AM]

Ok thanks, I even think I might be able to turn what you told me into what I needed, we'll see. Thanks again.

How can I get the program to read just what's after the /b or /c then?