اشکالات این برنامه چیه؟

[sp2_sp]

Option Explicit
'The following routine which caculates the amount of income tax for a given salary:
'Here s denotes salary amoumt , i denotes income tax and w denotes the £ symbol
Private Sub click()
Dim s As String
Dim i As String
Dim w As String
Dim response As VbMsgBoxResult

Do

s = InputBox("Please enter your salary")

If Mid(s, 1, 1) = "£" Then
s = Mid(s, 2, Len(s) - 1)
w = Mid(s, 1, 1)
End If

If IsNumeric(s) Then

If s < 0 Then
i = "a nonnegative number,Error!"
ElseIf s >= 0 And s <= 2440 Then
i = s * 0.1
ElseIf s > 2440 And s <= 37400 Then
i = 2440 * 0.1 + (s - 2440) * 0.2
ElseIf s > 37400 And s <= 150000 Then
i = 2440 * 0.1 + (37400 - 2400) * 0.2 + (s - 37400) * 0.4
Else
i = 2440 * 0.1 + (37400 - 2440) * 0.2 + (150000 - 37400) * 0.4 + (s - 150000) * 0.5
End If

MsgBox " Your income tax is " & w & i

Else
MsgBox "Error"
End If

response = MsgBox("Do you want to continue calculate your income tax?", vbYesNo)

Loop Until response = vbNo

End Sub

[returnx]

خوب یه توضیحی بدید اصلا موضوع برنامه چی هست ، کجا Error میده که راحت تر بتونیم کمکتون کنیم...

[sp2_sp]

سلام
این یه پروزه دانشگاهی هست که توسط استاد ارائه شده . این برنامه دارای اشکالاتی هست که اجازه اجرای برنامه رو نمیده حالا من از دوستان عزیز میخوام بدونم کدوم خط این برنامه اشکال داره و اشکالش چیه و کجا را اعیانا باید حذف کرد یا تغییر داد یا اضافه کرد .
مرسی

[محسن واژدی]

سلام علیکم
بنده که هرچه جستجو کردم خطایی پیدا نکردم فقط تنها چیزی که اینجا توجهم رو جلب کردن کد زیر بود که به نظر بنده اضافی هست، چون در ابتدا پیامی را نمایش میدهد و از شما میخواهد مبلغ شهریه را وارد کنید، تا اینجا درست ، بعد از زدن OK عملیات محاسباتی شروع میشود، حالا کد زیر چکاره است؟ جواب: فقط برای رد گم کنی

If Mid(s, 1, 1) = "£" Then
s = Mid(s, 2, Len(s) - 1)
w = Mid(s, 1, 1)
End If

موفق باشید