اريد مساعدة فى ازالة المسافات بين الارقام وهذه صوره توضح المشكلة
واستخدم هذه الداله لتوليد الرقم
Dim S1, S2, S3, S4 As String
S1 = Day(Date)
S2 = Month(Date)
S3 = Year(Date)
S4 = Cus_Num
S1 = str(YA)
S2 = str(RA)
S3 = str(WI)
S4 = str(FE)
Bar_Code = Trim(S1 + S1 + S3 + S4)