Табулирование функции

[vbas]

Добрый вечер, если вам не сложно подскажите как можно решить эту задачу на VBA:

Табулирование функции в заданном диапозоне с определенным шагом x1=-1 x2=7 x3=0.8

Я совсем не знаю этот язык, но смог найти кое-что:

Private Sub Command1_Click()
Dim t, A, B, i, H, m, y As Long
t = Val(Text1.Text)
A = Val(Text2.Text)
H = Val(Text3.Text)
m = Val(Text4.Text)
B = A + (m - 1) * H
For i = A To B Step H
If i >= -t Then y = i / t Else y = 1 / (i + t)
Print "при A="; A; Tab; "y="; y
Next i
End Sub

[vbas]

я нашел решение на pascal

program Projec3;

{$APPTYPE CONSOLE}

uses
  SysUtils;

VAR
  x, y,
  xmin, xmax, dx : Real;
begin
  { TODO -oUser -cConsole Main : Insert code here }


BEGIN
  Writeln('TABULATIONS: X1=-1  X2=7  X3=0.8' );
  Writeln('');
  xmin := -1;
  xmax := 7;
  dx := 0.8;
  x := xmin;
  WHILE x<=xmax DO begin
    y := exp(-sqr(x));
    Writeln(x:6:3, y:6:3);
    x := x+dx;
  end {while};
  Readln;
  end;
end.

но возникли трудности при переводе на vba

Private Sub Command1_Click()

Dim x, y, xmin, xmax, dx As Double
Dim a, b As Double


xmin = Val(Text1.Text)
xmax = Val(Text2.Text)
dx = Val(Text3.Text)
x = xmin
a = 6
b = 3

Do Until x <= xmax
y = Exp(-Sqr(x))
x = x + dx

Loop


End Sub

как написать цикл не знаю, если вам не сложно помогите пожалуйста