I would suggest that the if block should get changed to
VB Code:
  1. Select Case True

  2.         Case InStr(strBuffer, "http:")

  3.         Case InStr(strBuffer, "file:")

  4.         Case InStr(strBuffer, "mailto:")

  5.         Case InStr(strBuffer, "ftp:")

  6.         Case InStr(strBuffer, "https:")

  7.         Case InStr(strBuffer, "gopher:")

  8.         Case InStr(strBuffer, "prospero:")

  9.         Case InStr(strBuffer, "telnet:")

  10.         Case InStr(strBuffer, "news:")

  11.         Case InStr(strBuffer, "wais:")

  12.         Case Else

  13.             Exit Sub

  14.     End Select
that way if it finds one of them it'll jump out and won't bother calling the other InStr functions.