حسین جان فک کنم منظور ایشون اینه که سال و ماه و روز تولد رو بگیره بعد بگه چند سالشه آخه فقط بخواد یکیو بگه که خب خیلی برنامه ساده ایه
در مورد دومیم باید بگم درست از همون نکته ایه که گفتم یه روش دیگه ام همین الان به ذهنم رسید مینویسمش
Dim a As Integer
a = InputBox("number"
b = Str(a)
Dim c(100) As String
For I = 1 To Len(b)
c(I) = Mid(b, I, 1)
Next I
For I = Len(b) To 1 Step -1
k = k + c(I)
Next I
Print k
شما با این کد میتونین هر رشته و عددی رو برعکس کنید فقط باید متغیر a رو از نوع مورد نظر تعریف کنید
تک تک کاراکتر هام توی یک آرایه ذخیره میشن و اینطوری میشه مانور بیشتری روشون داد