What does this message mean?

[SkipVought]

Sub Msg()
    Dim sVar(2, 16)
    sVar(0, 0) = "!"
    sVar(0, 1) = "A"
    sVar(0, 2) = "C"
    sVar(0, 3) = "E"
    sVar(0, 4) = "H"
    sVar(0, 5) = "I"
    sVar(0, 6) = "M"
    sVar(0, 7) = "M"
    sVar(0, 8) = "R"
    sVar(0, 9) = "R"
    sVar(0, 10) = "R"
    sVar(0, 11) = "S"
    sVar(0, 12) = "S"
    sVar(0, 13) = "T"
    sVar(0, 14) = "Y"
    sVar(0, 15) = " "
    sVar(1, 0) = 16
    sVar(1, 1) = 14
    sVar(1, 2) = 7
    sVar(1, 3) = 2
    sVar(1, 4) = 8
    sVar(1, 5) = 10
    sVar(1, 6) = 1
    sVar(1, 7) = 13
    sVar(1, 8) = 3
    sVar(1, 9) = 4
    sVar(1, 10) = 9
    sVar(1, 11) = 11
    sVar(1, 12) = 15
    sVar(1, 13) = 12
    sVar(1, 14) = 5
    sVar(1, 15) = 6
    
    stext = ""
    For i = 0 To UBound(sVar, 2)
        For j = 0 To UBound(sVar, 2)
            If i + 1 = sVar(1, j) Then
                stext = stext + sVar(0, j)
            End If
        Next j
    Next
    MsgBox stext
End Sub

Skip,
metzgsk@voughtaircraft.com

 

[kevinclark]

Dim alpbt As String
Dim strMsg As String
alpbt = "SHARETHYMOUCI "
A = Array(9, 5, 4, 4, 8, 14, 12, 7, 4, 13, 1, 6, 9, 3, 1, 14, 6, 10, 14, 8, 10, 11, 14, 6, 10, 10)
For i = 0 To UBound(A)
strMsg = strMsg & Mid(alpbt, A(i), 1)
Next i
MsgBox strMsg