Помогите срочно написать программу!

[Матаня]

Вывести на экран сообщение пользователю(по указанию пользователя) символьной строки.Ввод строки выполнить с помощью функции InputBox. Вот что я сделала:
Sub Lab_rab_3_1()
Dim p As String, i, n, k As Integer
'объявляем переменную p строковой,
'переменные i,n,k целыми
met: p = InputBox("Введите строку символов", "Ввод данных", "абвгдежз")
'Метка met:переменной p присваиваем значение строки 'символов,вводимой с клавиатуры
If p = Empty Then Exit Sub
n = InputBox("Введите часть символьной строки", "Ввод исходных данных")
If n = 1 Then
n = Mid(p, i, 4)
For i = 1 To n
n = MsgBox("абвг")
End If
If n = 2 Then
n = Mid(p, i, 4)
n = MsgBox("дежз")
End If
k = MsgBox("Продолжить работу программы", vbYesNo + vbQuestion)
If k = vbYes Then GoTo met
End Sub

[Marchuk]

код бредовый. напишите лучше задание какое Вам дали.

[Матаня]

Я уже сделала!Спасибо за помощь!А задание сверху вообще то написано!