۱۰۰۱,۱۰۰۲,۱۰۰۳,۱۰۰۴,

Dim a As string=edittext1.text
Dim b As string=edittext2.text
Dim c As string=edittext3.text
Dim d As string=edittext4.text
Dim total_num As string=a&","&b&","&c&","&d&","

File.WriteString(File.DirInternal,"my_numbers.txt",total_num)

Sub checkints(txt As String)
	Dim i1 As String=0
	Dim i2 As String
	For i = 0 To txt.Length
		Try
			If txt.CharAt(i) = "," Then
				i2 = i
		
				If txt.SubString2(i1,i2) <> "" Then
					Dim mystring As String=(txt.SubString2(i1,i2))
					'اینجا کدی رو که میخواهیم پس از تجزیه اجرا بشه می نویسیم مثلا من میخوام برای هر کدام از ورودی هایی که تجزیه میشود یک جعبه پیغام نمایش داده شود.
                    msgbox(mystring,"ورودی تجزیه شده")
				End If
				Try
					i1=i+1
				Catch
				End Try
			End If
		Catch
		End Try
	Next
End Sub