VBasic Симолы

[VadEr]

Всем Доброго!

Подскажите пожалуйста как в Visual Baisic6 получить код символа, и в полученном коде найти последнюю цифру?

[Terran]

Подскажите пожалуйста как в Visual Baisic6 получить код символа

Иcпользуйте функцию Asc.

и в полученном коде найти последнюю цифру?

Функция Mid.
К примеру:

Private Sub CommandButton1_Click()
Dim A As Integer
TextBox1.Text = Asc("A")
A = Len(TextBox1.Text)
TextBox2.Text = Mid(TextBox1.Text, A, A)
End Sub