Enter the number(1 to 26), the corresponding letter will be displayed in the messagebox.

Public Class alphabet

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim value As String = ""

        For l As Integer = 1 To 26

            If l = TextBox1.Text Then

                value += ChrW(64 + l)

                MsgBox(value)

            End If

        Next

    End Sub

End Class