Настроение сейчас - супер =)

Сижу на программировании. Прикольно. Сидеть на практике и писать в дневник =) Препод сидит рядом и наблюдает за этим действием =) Супер.

Сегодня с утра было смешно. Проспала. Выбегала из дома, забыв флэшку с дз по программированию, неся шарфик и куртку в руках, не причесавшись и не накрасив губы. Хрен с ними, с губами =) Только вот они от ветра трескаются без блеска =(
Дальше больше - ехали с зяцем и зяцевой мамой. Зяц забыл тетрадку по истории и понесся домой. Потом присоединился к нам, когда мы стояли у электросилы. Естессно, мы ее не ждали. Потом ехали в пробках. Слушали ВВС. Сборная России не будет играть на чемпионате мира в следующем году. Песец...
Зяца выкинули на Невском. Всю дорогу она учила историю - самостоялка, а она, небось, даже не открывала =) Надеюсь, у нее все тип-топ. =)
Потом мы с тетей Сашей (ибо так зовут Зяцеву маму) ехали в пробках. На Невском загорелась машина. Пена от огнетушителя на дороге.
Я даже не опоздала. На набережной сфотографировала восход солнца. Потом выставлю. Супер =)

Но вернемся к программированию. Я написала программу. Зацените:
Sub strFuncMid()

Dim strWork As String '* 7
Dim intA As Integer
strWork = "ÏÀÂËÎÂÀ"
intA = 1
Debug.Print strWork
Debug.Print "áóêâà"; " çíà÷åíèå(16)"; " çíà÷åíèå(256)"
Debug.Print """"; Mid(strWork, intA, 1); """"; " "; Hex(Asc(Mid(strWork, intA, 1))); " "; Asc(Mid(strWork, intA, 1))
Do While intA < 7
intA = intA + 1
Debug.Print """"; Mid(strWork, intA, 1); """"; " "; Hex(Asc(Mid(strWork, intA, 1))); " "; Asc(Mid(strWork, intA, 1))
Loop

End Sub

Так то =)