Ошибка Overflow

[Platon33]

В общем зашел я на этот форум не случайно..так как очень нужна помощь знающих людей..
дали задание в институте на завтра сделать программирование в VBA и всё такое вроде ниче сложного но я забыл всё напрочь)
в общем вот:

Option Explicit
Public Sub ExecDialog()
Dim M As Single, N As Single
Dim P As Single, L As Single
Dim strM As String, strN As String
Dim response
newInput:
strM = InputBox("Введите M")
strN = InputBox("Введите N")
If Not IsNumeric(strM) Or Not IsNumeric(strN) Then
MsgBox "Error!" & Chr(10) & Chr(13) & "Введите число!", vbCritical, ""
Exit Sub
End If
P = (2.5 * N + M) / (N ^ 2 + M ^ 2) - (N * M) / ((N - M) ^ 2)
L = P - (N + M) ^ 2 - M / 10
MsgBox "P" & Format(P) & " L=" & (L)
End Sub

в итоге выскакивает ошибка Overflow

не знаю что может быть..
задание

[doober]

Отличия найдете сами

Public Sub ExecDialog()

 Dim M As Single, N As Single
 Dim P As Single, L As Single
 Dim strM As String, strN As String
 Dim response
newInput:
 strM = InputBox("Введите M")
 strN = InputBox("Введите N")
 If Not IsNumeric(strM) Or Not IsNumeric(strN) Then
 MsgBox "Error!" & Chr(10) & Chr(13) & "Введите число!", vbCritical, ""
 Exit Sub
 End If
 M = CSng(strM): N = CSng(strN)
 P = (2.5 * N + M) / (N ^ 2 + M ^ 2) - (N * M) / ((N - M) ^ 2)
 L = P - (N + M) ^ 2 - M / 10
 MsgBox "P" & Format(P) & " L=" & (L)
 End Sub

[IgorGO]

видимо перед этим
P = (2.5 * N + M) / (N ^ 2 + M ^ 2) - (N * M) / ((N - M) ^ 2)
необходимо присвоить значения:
N = CSng(strN)
M = CSng(strM)

[IgorGO]

)))
мы не сговаривались с Сергеем)))
ответил позже, потому что пью по инету с друзьями)

[Platon33]

Ааай)))
спасибо большое))
вы можете наверно поставить себе галочку ещё один автомат студенту))

[IgorGO]

я себе татуировку сделаю