خواندن کلمه کلمه از فایل txt

[s.hematii]

سلام دوستان من میخوام فایل txtکه فراخوانی کردمو به صورت کلمه کلمه بخونم یعنی مثلا "" (اسکپ )رو تشخیص بده و بره یه سری کار انجام بده و برگرده ادامشو بخونه لطفا کمک کنید.:افسرده:

[just4froum]

بفرمایید :
این کد تک تک کلمه هارو در یک آرایه ذخیره می کند و تک تک نشان می دهد.

Dim strMatn() As String
Dim x As Long

Open "Your Path" & "\" & "Your File" For Input As 1
strMatn = Split(Input(LOF(1), 1), " ")
Close #1

For x = LBound(strMatn) To UBound(strMatn)
MsgBox strMatn(x)
Next x

[s.hematii]

مرسی دوست خوبم اما من نفهمیدم کدوم دستور تشخیص "" است این کد منه مال 1دیکشنری با کمک دیتابیسه میشه 1نگاه بندازی و بگی اونجا که تو شکل فارسی نوشتم باید چه دستوری استفاده کنم مرسی
87303