Пример для вычисления - VB

Формулировка задачи:

Здравствуйте! помогите с решением примера в визуал бейсике! необходимо вычислить: a/1 + a/2 + ... + a/n, я немного поделал но чего то запутался , вроде еще надо сделать вначале проверку корректности входных данных.. вот че пока сделал обьясните как делать пожалуста )

                    Листинг программы
                
 
                        
                          
                    
Dim n As Integer
        Dim a As Double
        Dim res As Double
        Dim i As Integer
 
        If IsNumeric(TextBox1.Text) = True Then
        End If
        n = TextBox1.Text
        If IsNumeric(TextBox2.Text) = True Then
            a = TextBox2.Text
        End If
        If n < 0 Then Label1.Text = "Делить на ноль нельзя!"
        n = 1

Решение задачи: «Пример для вычисления»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub Task()
Dim a, n, i As Integer, vSum, bFlag As Boolean
Do
    a = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ Г*:", "Г‚ГўГ®Г¤ Г¤Г*Г*Г*Г»Гµ")
    If a = vbNullString Then Exit Sub
    bFlag = Not IsNumeric(a)
    If bFlag Then MsgBox "Г‚ГўГ®Г¤ГЁГІГҐ ГІГ®Г«ГјГЄГ® Г·ГЁГ±Г«Г*!", vbCritical, "ГЋГёГЁГЎГЄГ* ГўГўГ®Г¤Г*!"
Loop While bFlag
Do
    n = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ n:", "Г‚ГўГ®Г¤ Г¤Г*Г*Г*Г»Гµ")
    If n = vbNullString Then Exit Sub
    bFlag = Not (IsNumeric(n) And n > 0)
    If bFlag Then MsgBox "Г‚ГўГ®Г¤ГЁГІГҐ ГІГ®Г«ГјГЄГ® Г·ГЁГ±Г«Г* ГЎГ®Г«ГјГёГҐ 0!", vbCritical, "ГЋГёГЁГЎГЄГ* ГўГўГ®Г¤Г*!"
Loop While bFlag
For i = 1 To n
    vSum = vSum + a / i
Next
MsgBox vSum
End Sub