Вывести таблицу значений x и y - VB

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

Добрый вечер! Помогите пожалуйста вывести сетку значений X и Y с шагом 0.2 Х меняется от 1 до 2 функция такая: Y = exp(a + x / ax) Вот код:

Sub tabl()
Dim x, Y, exp, a, h, S, S1, AsSingle
x = 1
h = 0.2
a = 2
While x <= 2
Y = exp(a + x / ax)
Y = Format(Y, " ### 0.000")
S = S & Str(Y) + " "
S1 = S1 & Str(x) + " "
x = x + h
x = Format(Y, " ### 0.000")
Wend
MsgBox "x=" & S1 & " " & (Chr(10) & Chr(13)) & "Y=" & S & " " & (Chr(10) & Chr(13)), vbinfomation, " значение Х и функции F"
End Sub

Решение задачи: «Вывести таблицу значений x и y»

textual
                            Листинг программы 
                        

                            Sub tabl()
Dim x  As Double, Y  As Double, a  As Double
Dim h  As Double, S  As String, S1  As String
x = 1: h = 0.2: a = 2
 While x <= 2
    Y = Exp(a + x / a * x)
    Y = Format(Y, " ### 0.000")
    S = S & Str(Y) + " "
    S1 = S1 & Str(x) + " "
    x = x + h
 Wend
MsgBox "x=" & S1 & " " & (Chr(10) & Chr(13)) & "Y=" & S & " " & (Chr(10) & Chr(13)), vbinfomation, " значение Х и функции F"
End Sub
 
Private Sub Form_Load()
   tabl
End Sub
                        