Hallo, ich möchte einen String auf doppelte einträge untersuchen, und den letzten der doppelten ersetzen. Also wie im Code aus 76552 eine 765R2 machen. Aber irgend etwas ist da falsch, aber was ???
Bitte um hilfe !!!

Danke !!!

A = "76552"
B = "R"

For X = 2 To 5
Y = X - 1
If Mid(a , Y , 1) = Mid(a , X , 1) Then
Mid(a , X , 1) = B
End If
Next

Upperline
Lcd B

Do
Loop


End 'end program