VBA Userform - Textbox not displaying all characters from a datasheet

[ian9999]

Hi all

I have designed a user form to control what is entered into a data table, one of the fields is a free text option via a textbox.

The user has the ability to enter as many characters as they wish, but when the user forms updates it only shows 254 characters.

To retrieve data from the data table, a loop is used and it circulates through a list of fields.

Could be causing the problem?

Regards

Ian

 

[ian9999]

Here is the code

Private Sub LiveSection()

Dim Worksheet As Worksheet
Dim Count1 As Long 'This is used to determine how many items to loop through for Live Contracts Text & Numbers
'Live Text Section
Set Worksheet = ThisWorkbook.Sheets("LookupNew") 'This sets the sheet to be used
Count1 = Worksheet.Range("BE1", Worksheet.Range("BE1").End(xlDown)).Rows.count 'Counts the number of items in the range

Contract = Application.VLookup(CboContractNumber.Value, Sheets("LookupNEW").Range("AX1:AY4000"), 2, False)

ContractLive = Application.WorksheetFunction.IfError(Application.VLookup(Contract, Sheets("LookupNEW").Range("BA1:BC4000"), 1, False), Application.WorksheetFunction.IfError(Application.VLookup(Contract, Sheets("LookupNEW").Range("BB1:BC4000"), 2, False), 0))
CounterLive = 1 'Sets counter to 1

Do Until CounterLive > Count1 'This is to stop the loop when the counter is greater than the count of the number of items
ColumnNameFinderLive = Sheets("LookupNEW").Range("BE" & CounterLive).Value
Textbox = Sheets("LookupNEW").Range("BF" & CounterLive).Value
ColumnFinderLive = WorksheetFunction.Match(ColumnNameFinderLive, Sheets("Master Data NEW").Range("A2:EZ2"), 0)
If IsEmpty(Application.VLookup(ContractLive, Sheets("Master Data NEW").Range("A:EZ"), ColumnFinderLive, False)) = False Then

Me.Controls(Textbox) = Application.VLookup(ContractLive, Sheets("Master Data NEW").Range("A:EZ"), ColumnFinderLive, False)
Else
End If
CounterLive = CounterLive + 1 'This adds 1 to the counter for each loop

Loop

End Sub