haiku.vb

Sub Main()
    Dim Verse(3) As String, r As Integer, c As Integer, i As Integer, j As Integer
    Pix = 40
    With Cells
        .Font.Name = "HGP行書体"
        .Font.Size = "20"
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .RowHeight = Pix * 0.75
        .ColumnWidth = Pix * 0.118
    End With
    Verse(1) = "古池や"
    Verse(2) = "蛙飛び込む"
    Verse(3) = "水の音"
    For i = 1 To UBound(Verse)
        For j = 1 To Len(Verse(i))
            Cells(j, UBound(Verse) - i + 1) = Mid(Verse(i), j, 1)
        Next
    Next
End Sub