Problem mit Kleinen Währungsrechner

Hi ich habe folgendes Problem ich soll fürs studium ein Programm Schreiben was nach eingabe des wechselkurses eine einfache liste in word erstellt von 10 - 300 € in 10er schritten so das umsetzen der rechnung usw. war nicht das problem das problem ist das ich leider keinen ansatz finde um die ausgabe der einzelnen 30 werte in word zumachen.

Vileicht kann mir ja von euch jemand helfen..

währe echt super.

Ich poste mal meinen Code hier damit ihr auch mal seht was ich meine.

mfg Marko

Dim dblEingabe As Double

Dim intErgebnis As Integer

Dim varAusgabe As Variant

dblEingabe = txtEingabe.Value

Do

intI = intI + 10

intErgebnis = intI * dblEingabe

Loop Until intI = 300

Documents.Open FileName:="c:\NewDocument.doc"

With Me

intI = intI

intErgebnis = intErgebnis

With Selection

For varAusgabe = 10 To 300 Step 10

.TypeText varAusgabe & " Euro"

.TypeText " sind"

.TypeText intErgebnis

Next

With ActiveDocument

.PrintOut

.Close

End With

Exit Sub

Wert_Fehler:

MsgBox "Bitte Überprüfen Sie Ihre Angaben!!" & vbCr & "Haben Sie wirklich ein Zahl Eingegeben???" & vbCr & Err.Description, vbCritical, "Fehler:" & CStr(Err.Number)

End With

End With

End Sub