Morse - .Shebang

Option Strict On

Imports System.Text

Public Class MainForm

    Dim Dictionary As New List(Of MorseDict)
    Dim OutputBuilder As New StringBuilder()

    Public Sub New()
        Dictionary.Add(New MorseDict("A", ".-"))
        Dictionary.Add(New MorseDict("B", "-..."))
        Dictionary.Add(New MorseDict("C", "-.-."))
        Dictionary.Add(New MorseDict("D", "-.."))
        Dictionary.Add(New MorseDict("E", "."))
        Dictionary.Add(New MorseDict("F", "..-."))
        Dictionary.Add(New MorseDict("G", "--."))
        Dictionary.Add(New MorseDict("H", "...."))
        Dictionary.Add(New MorseDict("I", ".."))
        Dictionary.Add(New MorseDict("J", ".---"))
        Dictionary.Add(New MorseDict("K", "-.-"))
        Dictionary.Add(New MorseDict("L", ".-.."))
        Dictionary.Add(New MorseDict("M", "--"))
        Dictionary.Add(New MorseDict("N", "-."))
        Dictionary.Add(New MorseDict("O", "---"))
        Dictionary.Add(New MorseDict("P", ".--."))
        Dictionary.Add(New MorseDict("Q", "--.-"))
        Dictionary.Add(New MorseDict("R", ".-."))
        Dictionary.Add(New MorseDict("S", "..."))
        Dictionary.Add(New MorseDict("T", "-"))
        Dictionary.Add(New MorseDict("U", "..-"))
        Dictionary.Add(New MorseDict("V", "...-"))
        Dictionary.Add(New MorseDict("W", ".--"))
        Dictionary.Add(New MorseDict("X", "-..-"))
        Dictionary.Add(New MorseDict("Y", "-.--"))
        Dictionary.Add(New MorseDict("Z", "--.."))
        Dictionary.Add(New MorseDict("0", "-----"))
        Dictionary.Add(New MorseDict("1", ".----"))
        Dictionary.Add(New MorseDict("2", "..---"))
        Dictionary.Add(New MorseDict("3", "...--"))
        Dictionary.Add(New MorseDict("4", "....-"))
        Dictionary.Add(New MorseDict("5", "....."))
        Dictionary.Add(New MorseDict("6", "-...."))
        Dictionary.Add(New MorseDict("7", "--..."))
        Dictionary.Add(New MorseDict("8", "---.."))
        Dictionary.Add(New MorseDict("9", "----."))
        InitializeComponent()
    End Sub

    Private Function ToMorse(ByVal ToChange As String) As String
        Dim Letters As Char() = ToChange.ToCharArray()
        OutputBuilder.Clear()
        For Each C As Char In Letters
            If Char.IsLetterOrDigit(C) Then
                For Each M As MorseDict In Dictionary
                    If C.ToString() = M.NormalText
                        OutputBuilder.Append(String.Concat(M.MorseText, " "))
                        Exit For
                    End If
                Next
            ElseIf C = " "c
                OutputBuilder.Append("       ")
            End If
        Next
        Return OutputBuilder.ToString()
    End Function

    Private Function FromMorse(ByVal ToChange As String) As String
        Dim Words As String() = Split(ToChange, "       ")
        Dim Letters As String()
        OutputBuilder.Clear()
        For Each S As String In Words
            Letters = S.Split(" "c)
            For Each X As String In Letters
                For Each M As MorseDict In Dictionary
                    If X = M.MorseText
                        OutputBuilder.Append(M.NormalText)
                        Exit For
                    End If
                Next
            Next
            OutputBuilder.Append(" ")
        Next
        Return OutputBuilder.ToString()
    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TextBox2.Text = ToMorse(TextBox1.Text.ToUpper)
    End Sub

    Private Sub Button2_Click( sender As Object,  e As EventArgs) Handles Button2.Click
        TextBox2.Text = FromMorse(TextBox1.Text)
    End Sub
End Class

Public Class MorseDict

    Property NormalText As String = ""
    Property MorseText As String = ""

    Public Sub New(ByVal N As String, ByVal M As String)
        NormalText = N
        MorseText = M
    End Sub

End Class