Sub Task_a()
    Dim word, res As String, i As Integer
    i = 0
    word = InputBox("Введите предложение", "Ввод обрабатываемого предложения")
    If word = "" Then
        MsgBox "Вы ввели пустую строку!!!"
        GoTo out
    End If

    For Each x In Split(word, " ")
      If i Mod 2 = 1 Then res = res + x + " "
      i = i + 1
    Next x
    MsgBox res

out:
End Sub
Sub Task_b()
    Dim inp As String, t As Single

    inp = InputBox("Введите температуру воды", "Ввод обрабатываемой температуры воды")
    On Error GoTo Err_t
        t = CSng(inp)

    If t <= 0 Then
        MsgBox "Вода находится в твердом состоянии."
        GoTo out
    ElseIf t > 100 Then
        MsgBox "Вода находится в состоянии пара."
        GoTo out
    Else
        Dim x, y, h, V As Single, i As Integer
        inp = InputBox("Вода находится в жидком состоянии. Чтобы найти объем воды введите параметры резервуара." + vbNewLine + "Ввод параметров длины, ширины, высоты резервуара через пробел:", "Введите параметры резервуара")

        i = 0
        V = 1
        On Error GoTo Err_xyh
            If UBound(Split(inp, " ")) <> 2 Then
                GoTo Err_xyh
            End If

            For Each e In Split(inp, " ")
                If i = 0 Then
                    x = CSng(e)
                ElseIf i = 1 Then
                    y = CSng(e)
                ElseIf i = 2 Then
                    h = CSng(e)
                End If
                i = i + 1
            Next e

        V = x * y * h
        MsgBox "Объем жидкой воды составляет " & CStr(V)
        GoTo out
    End If

Err_t:
    MsgBox "Не удалось ввести температуру!"
    GoTo out

Err_xyh:
    MsgBox "Не удалось ввести параметры резервуара!"
    GoTo out

out:
End Sub
Sub tack_c()
    Dim n, i As Integer, tmp As String

    If Cells(1, 1) = "" Then GoTo err
    i = 1
    Do While True
        If Cells(i, 1) = "" Then Exit Do
        i = i + 1
    Loop

    'swap
    i = i - 1
    tmp = Cells(i, 1)
    Cells(i, 1) = Cells(1, 1)
    Cells(1, 1) = tmp

    'Закрасить
    Cells(i, 1).Interior.Color = vbYellow
    Cells(1, 1).Interior.Color = vbYellow
    MsgBox "Закрасили!"
    GoTo out
err:
    MsgBox "Пустой столбец!!!"
out:
End Sub