Подскажите с примерами,как их сделать?

'Составить программу ,которая по введенному названию дню недели
'выдает его порядковый номер
Sub Task_2()
Dim sStr As String, iArr
sStr = InputBox("Введите день недели:")
iArr = Array("пон", "вт", "ср", "чет", "пят", "суб", "вос")
For i = 0 To 6
    If InStr(1, sStr, iArr(i)) Then MsgBox i + 1: Exit For
Next
End Sub

Sub Task_3()
'Ñ êëàâèàòóðû ïîñëåäîâàòåëüíî ââîäÿòñÿ êîë-âî çàãðóæàåìîãî òîâàðà è åãî åäèíè÷íûé îáúåì.
'Ïðè ýòîì íà ïîãðóçêó îòïðàâëÿåòñÿ òîëüêî òîâàðû ñ åäèíè÷íûì îáúåìîì íå áîëåå V1.
'Ââîä àâòîìàòè÷åñêè ïðåêðàùàåòñÿ,êàê òîëüêî îáùèé îáúåì ââåäåííîãî îâàðà ïðåâçîéäåò åìêîñòü òðåéëåðà V0.
'Âû÷èñëèòü êîë-âî åäèíèö îòïðàâëÿåìîãî òîâàðà
On Error Resume Next
Dim V1, V0, vCol, vOb, iSumCol, iSumOb
V1 = Val(InputBox("Îãðàíè÷åíèå íà îáúåì:"))
V0 = Val(InputBox("Åìêîñòü òðåéëåðà:"))
Do
    vCol = Val(InputBox("Êîëè÷åñòâî òîâàðà:"))
    vOb = Val(InputBox("Åäèíè÷íûé îáúåì:"))
    If vOb <= V1 Then
        iSumCol = iSumCol + vCol
        iSumOb = iSumOb + vOb
    End If
Loop While iSumOb <= V0
MsgBox "Òîâàðà îòïðàâëÿåì " & iSumCol & " øò."
End Sub

Sub Task_4()
'Дана фраза определить,сколько в ней восклицательных и вопросительных знаков
sStr = InputBox("Âàøà ôðàçà:")
MsgBox "! - " & UBound(Split(sStr, "!")) & "; ? - " & UBound(Split(sStr, "?"))
End Sub