How to declare variable containing character limiting to 1000 bytes in vb6

Question

How to declare variable containing character limiting to 1000 bytes in vb6

Answer 1

This is a rough approximation. It assumes you are flexible with that 1000 byte limit.

Private mData As String
Public Property Let Data(value As String)

    If Len(value) <= 1000 Then
        mData = value
    Else
        'Do whatever '
    End If

End Property