[Murderdoll]

Вот код:

Public Shared i As Short = 0
Dim mvFName(9) As String
Dim mvLName(9) As String
Dim mvMName(9) As String
Dim mvEMail(9) As String
Dim mvPhone(9) As String
Dim mvCity(9) As String
Dim mvState(9) As String
Dim mvZip(9) As String

Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
End
End Sub

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click

mvFName(i) = Me.tbFName.Text
mvLName(i) = Me.tbLName.Text
mvMName(i) = Me.tbMName.Text
mvEMail(i) = Me.tbEMail.Text
mvPhone(i) = Me.tbPhone.Text
mvCity(i) = Me.tbCity.Text
mvState(i) = Me.tbState.Text
mvZip(i) = Me.tbZip.Text

i = i + 1

tbCounter.Text = i

Me.tbFName.Clear()
Me.tbLName.Clear()
Me.tbMName.Clear()
Me.tbEMail.Clear()
Me.tbPhone.Clear()
Me.tbCity.Clear()
Me.tbState.Clear()
Me.tbZip.Clear()

End Sub

Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click

Dim x As Short

For x = 0 To 9
If StrComp(mvLName(x), Me.tbSearch.Text) = 0 Then
Me.tbFName.Text = mvFName(x)
Me.tbLName.Text = mvLName(x)
Me.tbMName.Text = mvMName(x)
Me.tbEMail.Text = mvEMail(x)
Me.tbPhone.Text = mvPhone(x)
Me.tbCity.Text = mvCity(x)
Me.tbState.Text = mvState(x)
Me.tbZip.Text = mvZip(x)
End If
Next

Me.tbSearch.Clear()

End Sub

Поскольку я тока начал изучать Visual Basic, то никаких особо сложных приемов не надо. По-проще, даже если это и немного дольше. И сохранять надо не в Excel'е (как я думал), а в расширении .csv

ЗЫ Огромное спасибо!