کمک درمورد وارد کردن متن پی ام در تکست باکس!!!

[niksalehi]

سلام به دوستان!
یه سوال داشتم اگه دوستان جواب بدن ممنون میشم!
من یه سورس کد روبات یاهو دارم
فرض میکنیم که MESSAGE پی امی هست که طرف مقابل به برنامه داده، حالا من میخوام یه کاری کنم وقتی طرف مقابل تایپ کرد:

/vazn X Y Z

X تو تکست باکس 1، Y تو تکست باکس 2 ؛ Z تو تکست باکس 3 وارد بشه!

ElseIf Left(MESSAGE, 5) = "/vazn" Then

یه نکته ای هم هست، اینکه ممکن طول حروف X,Y,Z متفاوت باشه، مثلا x 4 حرف داشته باشه، Y 5 حرف....

[kitcat_m18]

سلام،
این نمونه رو بررسی کن
از تابع Split استفاده شده.

    Dim TMP, TXT As String

    

    TXT = "/vazn X Y Z"

    TMP = Split(TXT, " ")

    

    For i = LBound(TMP) To UBound(TMP)

        MsgBox TMP(i)

    Next i

موفق باشی

[niksalehi]

ممنونم از جوابت! اما نه اینکه من یخورده گیجم...
ببینید من یه همچین کدی و دارم:

      ElseIf Left(Message, ) = "/vazn" Then

     Dim X, Y as string

     X = Trim(Replace(Mid(Message, 7), " ", " "))

     Y = Split(X, ".")  

تا اینجا که واضحه، یعنی اگه چتر نوشت:

 /vazn 1250.1452.12

کد بیاد 1250 1452 12 رو از هم جدا کنه
حالا تمام مشکل من اینه که این متن های جدا شده توی سه تا تکست باکس قرار بگیره
بازم معذرت از سوال ابتدائیم، اگه گنگ بود بگین بهتر توضیح بدم!

[kitcat_m18]

سلام،
این قسمت یعنی چی؟؟؟

X = Trim(Replace(Mid(Message, 7), " ", " "))

Dlimeter رو درست مشخص کن بالا Space بود اما پایین نقطه گذاشتی.
نمونه برنامه بذار برات اصلاح کنم.
موفق باشی