GoTo Hello, World!

Public Class Program

    Public Shared Sub Main()
        Dim message As String = "HELLO, WORLD!"
        For i As Integer = 0 To message.Length - 1
            Dim c As Char = message.ToUpper.Chars(i)
            Select Case c
                Case "A"c
                    GoTo Label1
                Case "B"c
                    GoTo Label2
                Case "C"c
                    GoTo Label3
                Case "D"c
                    GoTo Label4
                Case "E"c
                    GoTo Label5
                Case "F"c
                    GoTo Label6
                Case "G"c
                    GoTo Label7
                Case "H"c
                    GoTo Label8
                Case "I"c
                    GoTo Label9
                Case "J"c
                    GoTo Label10
                Case "K"c
                    GoTo Label11
                Case "L"c
                    GoTo Label12
                Case "M"c
                    GoTo Label13
                Case "N"c
                    GoTo Label14
                Case "O"c
                    GoTo Label15
                Case "P"c
                    GoTo Label16
                Case "Q"c
                    GoTo Label17
                Case "R"c
                    GoTo Label18
                Case "S"c
                    GoTo Label19
                Case "T"c
                    GoTo Label20
                Case "U"c
                    GoTo Label21
                Case "V"c
                    GoTo Label22
                Case "W"c
                    GoTo Label23
                Case "X"c
                    GoTo Label24
                Case "Y"c
                    GoTo Label25
                Case "Z"c
                    GoTo Label26
                Case " "c
                    GoTo Label27
                Case ","c
                    GoTo Label28
                Case "!"c
                    GoTo Label29
                Case Else
                    GoTo Label30
            End Select
Label1:
            Console.Write("A")

            GoTo Label31
Label2:
            Console.Write("B")

            GoTo Label31
Label3:
            Console.Write("C")

            GoTo Label31
Label4:
            Console.Write("D")

            GoTo Label31
Label5:
            Console.Write("E")

            GoTo Label31
Label6:
            Console.Write("F")

            GoTo Label31
Label7:
            Console.Write("G")

            GoTo Label31
Label8:
            Console.Write("H")

            GoTo Label31
Label9:
            Console.Write("I")

            GoTo Label31
Label10:
            Console.Write("J")

            GoTo Label31
Label11:
            Console.Write("K")

            GoTo Label31
Label12:
            Console.Write("L")

            GoTo Label31
Label13:
            Console.Write("M")

            GoTo Label31
Label14:
            Console.Write("N")

            GoTo Label31
Label15:
            Console.Write("O")

            GoTo Label31
Label16:
            Console.Write("P")

            GoTo Label31
Label17:
            Console.Write("Q")

            GoTo Label31
Label18:
            Console.Write("R")

            GoTo Label31
Label19:
            Console.Write("S")

            GoTo Label31
Label20:
            Console.Write("T")

            GoTo Label31
Label21:
            Console.Write("U")

            GoTo Label31
Label22:
            Console.Write("V")

            GoTo Label31
Label23:
            Console.Write("W")

            GoTo Label31
Label24:
            Console.Write("X")

            GoTo Label31
Label25:
            Console.Write("Y")

            GoTo Label31
Label26:
            Console.Write("Z")

            GoTo Label31
Label27:
            Console.Write(" ")

            GoTo Label31
Label28:
            Console.Write(",")

            GoTo Label31
Label29:
            Console.Write("!")

            GoTo Label31
Label30:
            Console.Write("_")

            GoTo Label31
Label31:
        Next
    End Sub


End Class

ばかばかしいったらありゃしないｗ