Rather than having a separate text box control for each line of the address, if you just have a single text box sized to the full height of the label, then you can concatenate the lines into a single string expression, with each line terminated by a carriage return/line feed, using the following function published by Microsoft some years ago:
Public Function CanShrinkLines(ParamArray arrLines())
' Pass this function the lines to be combined
' For example: strAddress =
' CanShrinkLines(Name, Address1, Address2, City, State, Zip)
Dim X As Integer, strLine As String
For X = 0 To UBound(arrLines)
If Not IsNull(arrLines(X)) And Trim(arrLines(X)) <> "" Then
strLine = strLine & vbCrLf & arrLines(X)
End If
Next
' remove leading carriage return/line feed
CanShrinkLines = Mid(strLine, 3)
End Function
Any Null lines in the address will be suppressed, avoiding unsightly gaps For an example take a look at Concat.zip in my public databases folder at:
https://onedrive.live.com/?cid=44CC60D7FEA42912&id=44CC60D7FEA42912!169
If you have trouble downloading a specific file, clicking on the 'Download' button at the top of the page while no files are selected should download a zip file of all files in the folder, from which you should then be able to unpack the relevant file.