[vb6] Stampa text box

[axsw]

Kalosjo non funziona dove sbaglio?

Private sub cmdstampa_click()
 Dim stringa As String
 Dim t1 As Currency
  t1 = txt1.Text
  stringa = Space(Len("" & t1) - 20) & t1
  Printer.CurrentX = 8900
  Printer.CurrentY = 9350
  Printer.Print stringa
end sub

Mi evidenzia questa riga
stringa = Space(Len("" & t1) - 20) & t1
emi dice errore di runtime 5
Chiamata di argomento o ruotine non valida
help