Msgbox messages

[Spajeoly]

msgbox

??

Edited to add~~~~~~

Oh I see what you mean... You need to exit the loop in order for the message boxes to stop popping up when they click OK

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")
Exit Sub
End If
Loop
Close #1