selam arkadaşlar
bi program yapacağım kod okuma hakkında fakat bi yerde takıldım yardım ederseniz sevinirim.
programın normal ve calışan hali aşağıda:

Dim a As String
Dim b As String
Dim c As String
Dim d As String
Dim e As String
Private Sub Command1_Click()
a = Mid(Text1.Text, 1, 1)
b = Mid(Text1.Text, 2, 1)
c = Mid(Text1.Text, 3, 3)
If c = 0 Then d = 1
If c = 1 Then d = 10
If c = 2 Then d = 100
If c = 3 Then d = 1000
If c = 4 Then d = 10000
If c = 5 Then d = 100000
If c = 6 Then d = 1000000
If c = 7 Then d = 10000000
If c = 8 Then d = 100000000
If c = 9 Then d = 1000000000
e = ((a & b) * d)
Text2.Text = e
End Sub

ben bu kodlara ek olarak eklemek istediğim kod:
If c = "R" Then d = 2
veya
If c = R Then d = 2
kodunun ikisinide denedim olmadı.
yani 10R şeklinde bir kodu okutmak istiyorum. bunu nasıl yapacağımı gosterirseniz.
inşallah verdiğiniz ornek kod'a bakarak R10, 1R0 gibi kodları kendim yapmaya calışacağım.
__________________