"spazio stringa esaurito" come non far venire questo messaggio bloccante?

[lotto_tom75]

Il messaggio di errore è generato da questo code che mi servirebbe per generare dinamicamente una stringa numerica in orizzontale... sempre diversa...

      For x = 1 To 55
       
                 If numeri(x,1) = UBound(aRighe) + 1 Then
        
Scrivi Format2(numeri(x,2))  ' <<< questa riga scrive correttamente i risultati ma in verticale uno sotto l'altro...
Stringarisultaticollimazione =(Format2(numeri(x,2)))
 
   'prova scrittura in orizzontale...

'riga = riga & Format2(b(1)) & " " ' mette la stringa numeri in orizzontale  ' es. di codice per scrivere in orizzontale...

            Call ScriviFile(filerisultanzecollimazione,Stringarisultaticollimazione,False,True)
 
            collimazionefullok = collimazionefullok + 1
 
         End If
       
       
         Stringarisultaticollimazione = Stringarisultaticollimazione & Stringarisultaticollimazione & " . "
       
Scrivi Stringarisultaticollimazione << qui tento di scrivere la stringa numerica composta dalla riga soprastante...
'in orizzontale... ma invece ottengo sempre l'errore bloccante "spazio stringa esaurito"
                     
       
         Next
       
         Stringarisultaticollimazione=""  'azzero stringa  con nessun risultato sperato... l'errore infatti persiste...
    

   End If

 

[lotto_tom75]

Ce l'ho fatta da solo

per chi interessasse questo è il code:

   Stringarisultaticollimazione =(Format2(numeri(x,2))) & "."
   
 Call Scrivi (Stringarisultaticollimazione,,False,,,3,"verdana")  '<<< qui dico di scrivere i risultati in orizzontale con il parametro "False"