ممكن مساعدة في الكود التالي يقوم بكتابة الارقام بحيث تكون بينها مسافات قمت بالعمل المطلوب لكني اريد ان تكون في نفس text1
Dim NN As Long Dim i As Long Dim KK As String Text2.Text = "" NN = Len(account_num_text.Text) i = 0 For i = 1 To NN KK = Mid(account_num_text.Text, i, 1) Text2.Text = Trim(Text2.Text & " " & KK) Next i End Sub
