خب دوست عزیز اینم کدی که من طبق توضیحات شما نوشتم حالا میشه لطفا در مورد مقایسه و شمارنده کمکم کنید ممنون
Dim i%
Dim x() As String
x = Split(Text1.Text, vbCrLf)
Dim y() As String, z As String, a As Integer
For i = 0 To UBound(x)
y() = Split(x(i), vbTab)
y(1) = Replace(y(1), "-", "")
z = y(1) + 11
z = Left(z, 1) & "-" & Right(z, 1)
Next
Bookmarks