VB Code:
  1. Private Sub Command1_Click()

  2.     Dim i As Integer

  3.     Dim s As String

  4.     For i = Val(Text1.Text) To Val(Text2.Text)

  5.         s = s & i & vbCrLf

  6.     Next i

  7.     Text3.Text = s

  8. End Sub