Признаюсь. Я Basic не люблю и знаю весьма поверхностно.
И если бы он ни был языком макросов VC, то и знать не хотел бы;-)
В Вашем случае, похоже, не срабатывает проверка
if IsEmpty(HelpApp) Then

Попробуйте поэкспериментировать:
dim bWasHelpApp
bWasHelpApp = false
.............
'вместо этого: if IsEmpty(HelpApp) Then
if bWasHelpApp = false Then
bWasHelpApp = true