Помогите мне пожалуйста




Private Sub Command1_Click()

Dim LENA555 As String 'я
Dim DOBRIE_LUDI() As String 'Ссылки от добрых жителей форума
Dim i As Long

If UBound(DOBRIE_LUDI) <> 0 Then

For i = 0 To UBound(DOBRIE_LUDI)

LENA555 = LENA555 & DOBRIE_LUDI(i) & Chr$(13) & Chr$(10)

Next i
End If

If Len(LENA555) > 0 Then

Text1.Text = "Урааааааааааааа!!!!!!!!!!!!!!!!!!!!!!!"

Else

Text1.Text = "ПОМОГИТЕ МНЕ ПОЖАЛЮЙСТА скачать True DBGrid или намыльте мне пожалуйста elena-sibirskaya@mail.ru"

End If

End Sub

В общем скачала я версию 8.0, как быть с серийным номером, может есть у кого? Помогите пожалуйста, уже 4 дня не могу дальше продвинуться, я не лентяйка, я ишу, но на восьмую версию ненахожу :(