Как бороться с Отрицательными значениями list.ListCount?

Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Const LB_GETCOUNT = &H18B
Private Sub Form_Load()
Dim i As Long
    For i = 1 To 35000
       List1.AddItem "Count" & i
   Next
   MsgBox SendMessage(List1.hwnd, LB_GETCOUNT, 0, 0&)
End Sub

Option Explicit
Private Sub Form_Load()
    Dim i As Long
    For i = 1 To 47000
       List1.AddItem "Count" & i
    Next
    
    MsgBox ToUshort(List1.ListCount)
End Sub
 
Private Function ToUshort(ByVal v As Integer) As Long
    If v >= 0 Then
        ToUshort = v
    Else
        ToUshort = 65536 + v
    End If
End Function

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As Long, ByVal Msg As Long, wParam As Any, lParam As Any) As Long
Const LB_GETCOUNT = &H18B
Const LB_GETTEXT = &H189
Const LB_GETTEXTLEN = &H18A
 
Private Sub Form_Load()
    
    Dim count As Long
    Dim itemtext As String
    Dim textlen As Long
    
        For i = 1 To 35000
            List1.AddItem "Count" & i
        Next
    
    count = SendMessage(List1.hWnd, LB_GETCOUNT, ByVal CLng(0), ByVal CLng(0))
    textlen = SendMessage(List1.hWnd, LB_GETTEXTLEN, ByVal 34999, ByVal CLng(0))
    itemtext = Space(textlen) & vbNullChar
    textlen = SendMessage(List1.hWnd, LB_GETTEXT, ByVal 34999, ByVal itemtext)
    itemtext = Left(itemtext, textlen)
    
  Debug.Print "count     = " & count
  Debug.Print "itemtext  = " & itemtext
    
End Sub

Private Sub Form_Load()
    Dim i As Long
    For i = 1 To 47000
       List1.AddItem "Count" & i
    Next
    
    MsgBox ToUshort(List1.ListCount)
    
    With List1
        .Text = "Count" & 40000 - 1
        MsgBox ToUshort(.ListIndex) 'Текущий индекс
    End With
    
End Sub

Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Const LB_GETCOUNT = &H18B
Const LB_ADDSTRING = 384
Const LB_INSERTSTRING = 385
 
Private Sub Form_Load()
Dim i As Long
    For i = 1 To 35000
       List1.AddItem "Count" & i
   Next
   SendMessage List1.hwnd, LB_ADDSTRING, 0, "Neuer Item 35001" ' в конец
   SendMessage List1.hwnd, LB_INSERTSTRING, 2, "Neuer Item 3" ' куда надо, считая с 0
   MsgBox SendMessage(List1.hwnd, LB_GETCOUNT, 0, 0&)
End Sub

Const LB_DELETESTRING = 386
SendMessage List1.hwnd, LB_DELETESTRING, 2, 0& ' Удаляет запись номер 2, считая с 0