Visual Basic - bucle

lo que quiero hacer es que cuando ponga en una caja de texto un numero me genere en la tabla factura la cantidad de registro tantos como el numero q he puesto en la caja de texto en el codigo q hoz mando me inserta un registro solo, por eso quiero el bucle lo he intentado con For pero no me sale ayudadme por favor me urge
Aqui está el dodigo
Public Function ApostrofoSQL(t As String) As String
Dim cadres As String
Dim PosApp As Long
cadres = t
PosApp = InStr(1, cadres, "'")
While PosApp <> 0
cadres = Mid(cadres, 1, PosApp) & "'" & Mid(cadres, PosApp + 1)
PosApp = InStr(PosApp + 2, cadres, "'")
Wend
ApostrofoSQL = "'" & cadres & "'"
End Function
Public Function FechaBD(Fecha As Date) As String
FechaBD = "#" & Format(Fecha, "mm/dd/yyyy Hh:Nn:Ss") & "#"
End Function
Private Sub Command2_Click()
Dim sSQL As String
Dim ws As Workspace
Dim db As Database
Dim rs As Recordset
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("Db1.mdb") 'El path a tu BD
sSQL = "Insert into factura ([Id Factura],[Datos],[fecha Factura], [factura]) VALUES (" & _
txtFields(0).Text & "," & _
ApostrofoSQL(txtFields(1).Text) & "," & _
FechaBD(txtFields(2).Text) & "," & _
txtFields(3).Text & ")"
db.Execute sSQL, dbFailOnError

el bucle lo tienes que hacer antes de la definicion de la sql y despues de la ejecucion de la misma