Исправить ошибку при выводе значений протабулированой функции в ListBox

Private Sub CommandButton1_Click()
Dim A As Double
Dim B As Double
Dim h As Double
Dim x As Double
Dim f As Double
Dim i As Byte
If Not IsNumeric(TextBox1.Text) Or Not IsNumeric(TextBox2.Text) Or Not IsNumeric(TextBox3.Text) Then
MsgBox ("Ошибка!")
Exit Sub
End If
A = CDbl(TextBox1.Text)
B = CDbl(TextBox2.Text)
h = CDbl(TextBox3.Text)
If (B - A) / h <= 1 Then
MsgBox ("Неверно")
Exit Sub
End If
ListBox1.Clear
ListBox1.ColumnCount = 2
i = 0
For x = A To B Step h
ListBox1.AddItem Format(Format(x, "0.0"))
f = Sin(x)
ListBox1.List(i, 1) = Format(Format(f, "0.000"))
g = Cos(x)
ListBox1.List(i, 2) = Format(Format(g, "0.000"))
i = i + 1
Next x
End Sub

Private Sub CommandButton1_Click()
Dim A As Double
Dim B As Double
Dim h As Double
Dim x As Double
Dim f As Double
Dim i As Byte
If Not IsNumeric(TextBox1.Text) Or Not IsNumeric(TextBox2.Text) Or Not IsNumeric(TextBox3.Text) Then
  MsgBox ("Ошибка!")
  Exit Sub
End If
A = CDbl(TextBox1.Text)
B = CDbl(TextBox2.Text)
h = CDbl(TextBox3.Text)
If (B - A) / h <= 1 Then
  MsgBox ("Неверно")
  Exit Sub
End If
ListBox1.Clear
ListBox1.ColumnCount = 3 'а не 2
i = 0
For x = A To B Step h
  'ListBox1.AddItem Format(Format(x, "0.0")) - зачем двойной формат?
  ListBox1.AddItem Format(x, "0.0")
  f = Sin(x)
  ListBox1.List(i, 1) = Format(f, "0.000")
  g = Cos(x)
  ListBox1.List(i, 2) = Format(g, "0.000")
  i = i + 1
Next x
End Sub