How to create a Mnemonic by droping all but the first letter of a set of words, Visual Basic

Language: Layout:

'Rextester.Program.Main is the entry point for your code. Don't change it.
'Compiler version 11.0.50709.17929 for Microsoft (R) .NET Framework 4.5
Imports System : Imports System.Collections.Generic : Imports System.Linq : Imports System.Text.RegularExpressions
Namespace Rextester
    Public Module Program
        Public Sub Main(args() As string)
            'Dim textstring as string=InputBox("text?","Mnemonic maker", "The quick brown fox jumped over the lazy dog")
            Dim textstring as string="The quick brown fox jumped over the lazy dog"
            Dim sWords as String()=textstring.Split(New Char() {" "c})
            Dim sMnemonic as String="" 
            Dim i as Integer
            For i=0 to 8
              Dim sWord as String=sWords(i)
              Dim sLetter as String=sWord.substring(0,1)
              sMnemonic=sMnemonic & sLetter & " "
            Next
            Console.Writeline("The original text:" & textstring)
            Console.Writeline("Boils down to this mnemonic:" & sMnemonic)
        End Sub
    End Module
End Namespace

Show compiler warnings [ + ] Show input
Compilation time: 0,22 sec, absolute running time: 0,09 sec, cpu time: 0,08 sec, average memory usage: 14 Mb, average nr of threads: 2

How to create a Mnemonic by droping all but the first letter of a set ...