2.5. Помните о том, что все участники форума отвечают на ваши вопросы на добровольной основе. Здесь не техподдержка Microsoft Просто нам нравится помогать хорошим людям. Будьте вежливы и терпеливы - и вам обязательно помогут.
Мне всегда так и казалось, что вся суть форума в помощи. Кто хочет и может тот поможет. Другой пройдет мимо.
То что вам кажется, не означает что каждый следующий затык в элементарном вопросе - это повод для тема форума. А в правилах есть еще и
Цитата
Николай Павлов написал: 1. ГЛАВНОЕ ПРАВИЛО Прежде чем задать вопрос - поищите на него ответ поиском по форуму и посмотрите статьи в Приемах . Здесь уже обсуждалось более 45 000 вопросов - вполне возможно (и даже скорее всего!), кто-то уже нашел решение.
так что правила нужно соблюдать всегда а не только когда выгодно. И даже не пытайтесь сказать что искали , перерыли весь интернет и ничего близкого не обнаружили.
Private Sub CommandButton1_Click()
Dim arr As Variant
'Me.TextBox1.Text = "Иванов Иван Иванович"
arr = Split(Me.TextBox1.Text)
MsgBox arr(1) & " " & arr(2), 64, "Сообщение"
End Sub
Private Sub CommandButton1_Click()
Dim arr As Variant
'Me.TextBox1.Text = "Иванов Иван Иванович"
arr = Split(Me.TextBox1.Text, " ",2)
MsgBox arr(1) , 64, "Сообщение"
End Sub