hi all

i have been stuck on this for a while now. i have created a command button that copies a string to clip board. this strings is made up of text boxes on a user form. the text boxes are filled in by the user but depending on the users input some remain hidden. when i copy to clip board the hidden text boxes leave blank gaps . is there any way to get these removed so when pasted the hidden text boxes dont leave a gap. Heres my code. thank you so much in advance for your help


Dim DataObj As New MSForms.DataObject
    Dim STR1 As String
    
  STR1 = A0 + vbCrLf + vbCrLf + A49 + "     " + A50 + vbCrLf + A46 + "     " + A47 + vbCrLf + A1 + "     " + A2 + vbCrLf + vbCrLf + A3 + "     " + A4 + ComboBox3 + vbCrLf + vbCrLf + A5 + "    " + A6 + vbCrLf + A7 + "     " + A8 + vbCrLf + A9 + "     " + A10 + vbCrLf + vbCrLf + A11 + "     " + A12 + ComboBox4 + vbCrLf + A13 + "     " + A14 + vbCrLf + A15 + "     " + A16 + vbCrLf + A17 + vbCrLf + A18 + vbCrLf + vbCrLf + A19 + "     " + A20 + vbCrLf + A21 + "     " + A22 + vbCrLf + A23 + "     " + A24 + vbCrLf + A25 + "     " + A26 + vbCrLf + A27 + "     " + A28 + vbCrLf + vbCrLf + A29 + "     " + A30 + vbCrLf + A31 + "     " + A32 + vbCrLf + A33 + "     " + A34 + vbCrLf + A35 + "     " + A36 + vbCrLf + A37 + "     " + A38 + vbCrLf + vbCrLf + A39 + vbCrLf + A40 + vbCrLf + A48 + vbCrLf + vbCrLf + A41 + vbCrLf + vbCrLf + A42 + "     " + A43 + vbCrLf + A44 + "     " + A45
     

   
 
   
    With DataObj
   
   
        .SetText STR1.Value
        
        
        .PutInClipboard
        
     
         Unload UserForm10
     
       
   MsgBox "Notepad copied to clip board"
      
      End With




End Sub