Sayısı Sıra İle Artan Metin Uygulaması

Merhabalar,
Öncelikle iyi bayramlar. Ekli örneğimde, revizyon metin kutusunun içinde, butona her basışımda R1, R2, R3 şeklinde sırayla artan bir metin oluşturmak istiyorum. Nasıl yapabilirim?

Butonun tıklandığında olayına aşağıdaki kodu yazarak deneyiniz

Dim GRevizyon As Integer



If IsNull(Me.revizyon) Or Me.revizyon = "" Then



Me.revizyon = "R1"



Else



GRevizyon = Val(Mid(Me.revizyon, 2, Len(Me.revizyon)))



Me.revizyon = "R" & GRevizyon + 1



End If

Evet aradığım buydu. Teşekkürler..