If Left(Mag,2) = 55 Then 

Sub Задание2()
Dim D(), V() As Single
Dim M() As String
Dim VM, VD As Single
Dim Mag As String
Dim i, N, Nd As Integer
N = InputBox("Введите количество абонентов")
ReDim D(N), V(N) As Single
ReDim M(N) As String
Debug.Print "№телефона", "плата за МТР", "внесенная плата"
For i = 1 To N
M(i) = InputBox("Введите номер абонента")
D(i) = InputBox("Введите плату за МТР")
V(i) = InputBox("Введите внесенную плату")
Debug.Print M(i), D(i), V(i)
Next i
'Mag = Fix(M(N) * 0.1)
Mag = InputBox("введите первые две цифры")

dm = 0
Debug.Print Mag, dm
For i = 1 To N
If Left(M(i), 2) = Mag Then dm = dm + D(i)
Next i
Debug.Print dm
End Sub