Visual Basic- jak wyświetlić odpowiednie informacje z pliku tekstowego

Jak w temacie potrzebuję wyświetlać odpowiednie informacje po odcytaniu przez program danej. NP.dane które odcztuje sa takie : DP81 .DP82,DP83 DP84 itd
piszę tak.
If WMI = "DP81" Then
Imię = "xxxxxxxxxxxxxxxxxxxx"
nazwisko = "zzzzzzzzzzzzzzzz"
adres= "yyyyyyyyyyyyyy"
End If
ale to klepania a klepania
mam bazę chodzi mi jak uprościć sobie pracę i po otrzymaniu dane np. BP81 skoczył do wiersza o nazwie DP81 odczytał i wpisał w imię xxxxxxxx
nazwisko zzzzzzzzzz itd.
nie bardzo wiem jak użyć poleceń do odczytu tego co chcę i wpisania gdzie chcę.
mam np tak:
DP81 yyyyyyyyy zzzzzzzzzzzzzzzzzz //xxxxxxxxxxxxx (03/97-08/98)
DP82 yyyyyyyyy zzzzzzzzzzzzzzzzzz //xxxxxxxxxxxxx (03/97-08/98)
DP83 yyyyyyyyyy zzzzzzzzzzzzzzzzzz //xxxxxxxxxxxxxxxx (03/97-08/98)

Proszę o Pomoc

piwek9 napisał:

mam bazę chodzi mi jak uprościć sobie pracę i po otrzymaniu dane np. BP81...

Jeśli masz gotową bazę w arkuszu, to daną umieść w komórce i wykorzystaj wbudowane funkcje wyszukiwania Np WYSZUKAJ.PIONOWO, INDEKS, PODAJ POZYCJĘ.

Problem polega na tym że dane są w pliku tekstowym , przeklepywanie tego to koszmar ,dane są zapisane w pliku tekstowym każdy wiersz zaczyna się np DP81 .
i po tym są odnajdywane , zastanawiam się jak użyć polecmmeń np .
MID("xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx",3,20)
Right ("xxxxxxxxxxxxxxxxxxxxxxxxxxxx",10)
w immediate mi to działa ale nie wychodzi w programie

Zależy jaka duża ta baza i o jakiej strukturze (txt), ale jeśli ma mniej niż maksymalna ilość wierszy w arkuszu i są jakieś separatory to zaimportuj plik tekstowy do Excela i wyszukuj funkcjami.

Dzieki za podpowiedź .Udało się