1. "strange" means its not a runtime error but an error which is caused by MSVM60.dll AND it only happens in Win9x/ME

2.Thats the procedur's code where this error appears:

Public Sub FillList()
Dim i As Long, tmp As Long

lst.Clear

' Get the function work even if the array is erased
On Error Resume Next
tmp = -1
tmp = UBound(ArrayPersons)
On Error GoTo 0

For i = 0 To tmp
With ArrayPersons(i).NameInfo
If Not len(.Name)=0 Then
' If I put in a 'msgbox "blablabla"' right here I get runtime error '10' DURING the message box is shown
lst.AddItem .Title & vbTab & .Name & vbTab & .Nick
lst.ItemData(lst.NewIndex) = i
End If
End With
Next

End Sub
(I hope it wasn't my mistake )