Вывод пользовательского сообщения - VB

Формулировка задачи:

Хочу написать программу которая после какого-то промежутка времени выводила сообщения из файла Файл примерно будет выглядеть как множество строк и каждая строка это сообщение. Сообщения выходят по очереди, программа висит в трее или вообще не видна,

сама проблема в том что нужно как то выводить красивое сообщение где не Ок/Нет, а например Так точно/ Никак нет.

По возможности можете написать все что я описал, если нет то только выделенное.

Решение задачи: «Вывод пользовательского сообщения»

textual
                            Листинг программы 
                        

                            Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objSourceText = objFSO.OpenTextFile("Путь у файлу", 1) 
Do Until objSourceText.AtEndOfStream 
strLine = objSourceText.ReadLine 
MsgBox strLine, 1+64, "Имя проги"
Loop
objSourceText.Close
objOutText.Close
                        