[lxa85]

vivat, вроде все верно.
1. Покажи объявление переменных max, k.
2. Сделай проверку на единичную длину массива.
3. If A(i) > max Then max = A(i) : k = i напиши в две строки.

If A(i) > max Then max = A(i)
k = i - ЕМНИП это не будет принадлежать условию if.

If A(i) > max Then max = A(i)
k = i
else
EndIf
А вот так будет. В любом случае проверь синтаксис конструкции IF Then Else.
4. MsgBox "max=" & r Максимальное значение у тебя храниться в max, индекс максимального в k. Скажи, причем здесь r ?
Это как в анекдоте: Летят два крокодила, один зеленый, другой на север. Вопрос: сколько лет было тигру, когда посадили медведя. Ответ: а зачем мне холодильник, если я не курю.
Вот так и у тебя. Считается в одних переменных, а на вывод ты запрашиваешь другие.
5. A(i) = InputBox("A(i)") - эта конструкция точно верна? у меня VBA под руками нет проверить.