Замена букв?

[Rik3D]

У меня форма в ней TextBox1, как сделать так чтобы когда набираешь русскими (например - сфе) буквами в TextBox1, то при нажатии CommandButton1 они менялись на английские (например - cat).

[Igor_123]

Спасибо! Прийду!

Я и расслабиться не успел!

Делаешь цикл по всем буквам введёного слова и заменяешь их на соответствующие английские. Я бы сделал Mid 'ом

[hCORe]

Код: Выделить всё

Option Explicit

Private Sub Form_Load()
    'будет "cat"
    MsgBox RusToEng("сфе")
End Sub

Private Function RusToEng(sInput As String) As String
    Const SUBS1 = "ЙЦУКЕНГШЩЗФЫВАПРОЛДЯЧСМИТЬйцукенгшщзфывапролдячсмить"
    Const SUBS2 = "QWERTYUIOPASDFGHJKLZXCVBNMqwertyuiopasdfghjklzxcvbnm"
    Dim i As Long, lC As Long
    RusToEng = Space$(Len(sInput))
    For i = 1 To Len(sInput)
        lC = InStr(1, SUBS1, Mid$(sInput, i, 1))
        If lC <> 0 Then
            Mid$(RusToEng, i, 1) = Mid$(SUBS2, lC, 1)
        Else
            Mid$(RusToEng, i, 1) = Mid$(sInput, i, 1)
        End If
    Next i
End Function

[Igor_123]

Ух ты!!!
Как быстро!

[Rik3D]

Я и расслабиться не успел!

Ещё успеешь, наверное.????

[Rik3D]

Всем спасибо, особенно hCORe

[hCORe]

Всегда пожалуйста

[Rik3D]

Всем большое спасибо, что рады помочь!!!!