Open "c:\Address.dat" For Input As #1
Do Until EOF(1)
i% = i% + 1
If Text1.Text = "" Then Exit Do
If i% > UBound(Names$) Then ReDim Preserve Names$(1 To i%)
If i% > UBound(Adds$) Then ReDim Preserve Adds$(1 To i%)
Input #1, Names$(i%), Adds$(i%)
If Text1.Text = Names$(i%) Then
Text1.Text = Names$(i%)
Text2.Text = Adds$(i%)
Else
msg = "NOT There"
response = MsgBox(msg, vbOKOnly, "Attention")
End If
Loop
Close #1

HERE I WOULD LIKE TO INFORM YOU THAT IF I DON' TYPE THE
NAME CORRECTLY OR NO NAME FOUND I WANT MSG TO BE
DISPLAYED HOW DO I DO IT WHEN I PRESS OK THE MSGBOX SHOULD DISAPPEAR

REGDS
SAM F