Public Sub tststststs()
Dim s$, s1$
Dim i, k
k = Asc("Х") 'X-это квадратик(здесь не отображается)
s = "123XXXXXX"
Debug.Print "s=" & s
For i = Len(s) To 1 Step -1
s1 = Mid(s, i, 1)
If Asc(s1) <> k Then
s = Left(s, i)
Exit For
End If
Next
Debug.Print "s=" & s
'Только у меня почему-то у квадратика код 7
End Sub
|