Private Sub Command1_Click()
    Dim Msg As String 'Блок переменных
    Dim Title As String
    Dim Style As String
    Dim Response As String
    Dim MyString As String
    
    Msg = "Если поля введены верно нажмите Да" 'Текст сообщения
    Style = vbYesNo + vbCritical + vbDefaultButton2 ' Устанавливаем стиль
    Title = "Проверка" ' Устаналиваем заголовок (Caption).


Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
MyString = "Да"
' Выполняем какие-то действия, если пользователь выбрал Yes

    Dim F As String 'Блок переменных
    Dim I As String
    Dim O As String
    Dim FIO As String
    Dim FIO2 As String
    
    FIO2 = Text1.Text
    F = Text2.Text 'Блок считывания и записи в переменные
    I = Left(Text3.Text,  1 ) 'Left и параметр 1 в этой ситуации служит для копирования первого символа в переменную "I"
    O = Left(Text4.Text,  1 )
    FIO = F & vbCrLf & I & vbCrLf & O & vbCrLf & ""
    'List1.AddItem (FIO & vbCrLf & FIO2)
    Text1.Text = FIO & vbCrLf & FIO2
    FIO2 = ""
    F = ""
    I = ""
    O = ""
    FIO = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    'Private Sub Command1_Click()
'Dim str As String
'str = ""
'For p = 1 To Len(Text1.Text)
'If Asc(Mid(Text1.Text, p, 1)) = 13 Then
'List1.AddItem str
'str = ""
'p = p + 2
'End If
'str = str & (Mid(Text1.Text, p, 1))
'Next p
'List1.AddItem str
'End Sub
    
    'Text1.Text = F & vbCrLf & I & vbCrLf & O  'Вывод ФИО на экран
    
    
Else
MyString = "Нет"
' Выполняем какие-то действия, если пользователь выбрал No
End If
    
    
End Sub