Question MorseCode Converter

[doubt]

Hello i need some help with this morsecode Converter for a school project.

The program should both be able to translate from normal text to morse and the other way around.
And my teacher want us to do it the same way as him.
Also it should be able to make beep sounds similar to the morsecode.

I know that he wants to dim the letters this way.

[COLOR=#000000][FONT=helvetica]Dim A As String = "*-"[/FONT][/COLOR]
[COLOR=#000000][FONT=helvetica]    Dim B As String = "-***"[/FONT][/COLOR]
[COLOR=#000000][FONT=helvetica]    Dim C As String = "-*-*"[/FONT][/COLOR]
[COLOR=#000000][FONT=helvetica]    Dim D As String = "-**"[/FONT][/COLOR]
[COLOR=#000000][FONT=helvetica]    Dim E As String = "*"[/FONT][/COLOR]
[COLOR=#000000][FONT=helvetica]    Dim F As String = "**-*"[/FONT][/COLOR]
[COLOR=#000000][FONT=helvetica]    Dim G As String = "--*"[/FONT][/COLOR]
[COLOR=#000000][FONT=helvetica]    Dim H As String = "****"[/FONT][/COLOR]
[COLOR=#000000][FONT=helvetica]    Dim I As String = "**"[/FONT][/COLOR]
[COLOR=#000000][FONT=helvetica]    Dim J As String = "*---"[/FONT][/COLOR]
[COLOR=#000000][FONT=helvetica]    Dim K As String = "-*-"[/FONT][/COLOR]
[COLOR=#000000][FONT=helvetica]    Dim L As String = "*-**"[/FONT][/COLOR]
[COLOR=#000000][FONT=helvetica]    Dim M As String = "--"[/FONT][/COLOR]
[COLOR=#000000][FONT=helvetica]    Dim N As String = "-*"[/FONT][/COLOR]
[COLOR=#000000][FONT=helvetica]    Dim O As String = "---"[/FONT][/COLOR]
[COLOR=#000000][FONT=helvetica]    Dim P As String = "*--*"[/FONT][/COLOR]
[COLOR=#000000][FONT=helvetica]    Dim Q As String = "--*-"[/FONT][/COLOR]
[COLOR=#000000][FONT=helvetica]    Dim R As String = "*-*"[/FONT][/COLOR]
[COLOR=#000000][FONT=helvetica]    Dim S As String = "***"[/FONT][/COLOR]
[COLOR=#000000][FONT=helvetica]    Dim T As String = "-"[/FONT][/COLOR]
[COLOR=#000000][FONT=helvetica]    Dim U As String = "**-"[/FONT][/COLOR]
[COLOR=#000000][FONT=helvetica]    Dim V As String = "***-"[/FONT][/COLOR]
[COLOR=#000000][FONT=helvetica]    Dim W As String = "*--"[/FONT][/COLOR]
[COLOR=#000000][FONT=helvetica]    Dim X As String = "-**-"[/FONT][/COLOR]
[COLOR=#000000][FONT=helvetica]    Dim Y As String = "-*--"[/FONT][/COLOR]
[COLOR=#000000][FONT=helvetica]    Dim Z As String = "--**"[/FONT][/COLOR]
[COLOR=#000000][FONT=helvetica]    Dim ? As String = "*-*-"[/FONT][/COLOR]
[COLOR=#000000][FONT=helvetica]    Dim ? As String = "---*"[/FONT][/COLOR]
[COLOR=#000000][FONT=helvetica]    Dim ? As String = "*--*-"[/FONT][/COLOR]

Also he showed us this tutorial we should use to split strings in some way.
VB.NET Tutorial 36 - Splitting Strings (Visual Basic 2008/2010) - YouTube

And i took this picture of how he use the Case function.

Hope someone can help me figure out how the program works for him.