Public Class Form1
    Dim Alphabet As New ArrayList
    Dim ascval As Integer = 63

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Dim ascval As Integer = 63
        Do Until ascval = 123
            Alphabet.Add(Chr(ascval))
            ascval = ascval + 1
        Loop
        ascval = 48
        Do Until ascval = 58
            Alphabet.Add(Chr(ascval))
            ascval = ascval + 1
        Loop

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Dim strFileName As String
        Dim ret As DialogResult

        OpenFD.InitialDirectory = "C:\"
        OpenFD.Title = "Open a Text File"
        OpenFD.Filter = "Text Files(*.txt)|*.txt|Word Files(*.doc)|*.doc"
        ret = OpenFD.ShowDialog
    End Sub
    Private Sub SetUpAlphabet()
        Alphabet.Add("abcdefghijklmnopqrstuvwxyz")
        Alphabet.Add("ABCDEFGHIJKLMNOPQRSTUVWXYZ")

    End Sub

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