В VBA Microsoft Office можно так сделать Sub aaa() Const s = "электрорадиомонтёр" l = Len(s) ReDim a(1 To l) For i = 1 To l a(i) = Mid$(s, i, 1) Next i MsgBox Left(s, 7) + a(10) + " " + a(11) + " " + a(4) + a(9) + a(5) + a(7) + a(10) MsgBox a(5) + a(3) + a(6) + a(13) + a(11) + a(15) + a(9) + a(5) + a(7) + _ a(6) + " " + Mid(s, 16, 3) + " " + Mid(s, 8, 5) End Sub
А если в VB делать, то нужно нарисовать форму и прописать в коде какой-нибудь кнопки предыдущий код. Либо на форме организовать вывод в Label или какие-нибудь поля (Text, Edit).