تفکیک مقادیر یک متغیر

[GTAexcess]

سلام دوستان بنده یک متغیر دارم که شامل چندین اطلاعات هست و بصورت زیر از یکدیگر جدا شدند :


*200
@hhh
!656565
#hdhdhddh
_Nalled
+Nalled
%25 خرداد
^عباس
|--------------------------|
*200
@misaq
!333
#iran
_Nalled
+Nalled
%25 خرداد
^عباس
|--------------------------|
*200
@abas
!099
#iran
_Nalled
+Nalled
%25 خرداد
^reza
|--------------------------|


میخوام هرجا که رسید به * بجاش بنویسه "نام" و هرجا رسید به @ بنویسه کد و .... وقتی رسید به خط چین این شکل رو تو msgbox نشون بده
فقط مراحل تفکیکی که از شروع * تا کاراکتر 13 رو نمیتونم دربیارم

[vbhamed]

سلام
اگر فرض کنیم متغیر s کل عبارت بالا باشه

s = Replace(s, "*", "نام")
s = Replace(s, "@", "کد")
'.
'.
'.
Dim x() As String, i&

x = Split(s, "|--------------------------|")
For i = 0 To UBound(x)
MsgBox x(i)
Next