[HaBo]

Module Module1

    Sub Main()

        Dim Alpha() As String = New String() {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", _
                                        "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "Ä", "Ö", "Ü", "ß", ".", ",", _
                                        "(", ")", "=", "1", "2", "3", "4", "5", "6", "7", "8", "9", "0", " "}

        Dim Morse() As String = New String() {".-", "-...", "-.-.", "-..", ".", "..-.", "--.", "....", "..", ".---", _
                                        "-.-", ".-..", "--", "-.", "---", ".--.", "--.-", ".-.", "...", "-", "..-", _
                                        "...-", ".--", "-..-", "-.--", "--..", ".-.-", "---.", "..--", "...--..", _
                                        ".-.-.", "--..--", "-.-.-", "-.--.-", "-...-", ".----", "..---", "...--", "....-", _
                                        ".....", "-....", "--...", "---..", "----.", "-----", "@"}

        Console.WriteLine("Text eingeben (bei Morsecode: Trennungszeichen: ""|"", Leerzeichen: ""@""):")
        Console.WriteLine()

        Dim textAlt As String = (Console.ReadLine()).ToUpper
        Dim textNeu As String = ""

        If textAlt.IndexOf("|") = -1 Then
            For i As Integer = 0 To textAlt.Length - 1
                textNeu &= Morse(Array.IndexOf(Alpha, textAlt.Substring(i, 1)))
            Next
        Else
            Dim anzahl As Integer = 0

            For i As Integer = 0 To textAlt.Length - 1
                If textAlt.Substring(i, 1) = "|" Then
                    anzahl += 1
                End If
            Next
            For i As Integer = 0 To anzahl - 1
                textNeu &= Alpha(Array.IndexOf(Morse, textAlt.Substring(0, textAlt.IndexOf("|"))))
                textAlt = textAlt.Substring(textAlt.IndexOf("|") + 1)
            Next
        End If

        Console.WriteLine()
        Console.WriteLine(textNeu)
        Console.ReadLine()

    End Sub

End Module