blob: 074090707bfdfae4bc939744fd4c188a77e653a5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
Attribute VB_Name = "ModTask_01"
Option Explicit
Public Const strMyTitle As String = "Eric Cheung"
Sub Task_01()
Dim strMsg As String
strMsg = " ^^^^^"
strMsg = strMsg & vbNewLine & " ^ ^"
strMsg = strMsg & vbNewLine & " ^ ^"
strMsg = strMsg & vbNewLine & " ^ ^"
strMsg = strMsg & vbNewLine & "^ ^"
strMsg = strMsg & vbNewLine & "^ ^"
strMsg = strMsg & vbNewLine & "^ ^"
strMsg = strMsg & vbNewLine & "^ ^"
strMsg = strMsg & vbNewLine & "^ ^"
strMsg = strMsg & vbNewLine & " ^ ^"
strMsg = strMsg & vbNewLine & " ^^^^^"
strMsg = strMsg & vbNewLine & " ^"
strMsg = strMsg & vbNewLine & " ^"
strMsg = strMsg & vbNewLine & " ^"
strMsg = strMsg & vbNewLine & " ^^^^^"
strMsg = strMsg & vbNewLine & " ^"
strMsg = strMsg & vbNewLine & " ^"
MsgBox strMsg, vbOKOnly, strMyTitle
End Sub
|
