サブストリングが正しい文字を取得していません

Question

Public Class Form1 
    Private Sub btnMono_Click(sender As Object, e As EventArgs) Handles btnMono.Click 
     Dim full As String = Me.txtNamw.Text 
     Dim Enter As Integer 
     Dim LastEnter As Integer 

     Dim firstI As String 
     Dim secondI As String 
     Dim thirdI As String 

     Enter = full.IndexOf("") 'Finds the first space 
     LastEnter = full.LastIndexOf("") 'Finds the last space 

     Dim secondhalf As String = full.Substring(Enter, LastEnter) 
     Dim thirdhalf As String = full.Substring(LastEnter, full.Length) 

     firstI = full.Chars(0) 
     secondI = secondhalf.Chars(0) 
     thirdI = thirdhalf.Chars(0) 

     Me.lblAnswer.Text = String.Concat(firstI, secondI, thirdI) 
    End Sub 
End Class 

学校用のプログラムを作成する必要があります。そのため、3つの名前のすべての頭文字が入力されたときに、最初の名前、2番目の名前、中間の名前が入力されます。私はなぜこれがすべてATで働いていないのか不明です。私はそれぞれの名前を分離しようとしているし、最初のintialを得るが、それは動作していません。私はVB.NETを初めて使用しました。 @Plutonixが言ったように

おかげ

Answer 1

、それは.Split（）メソッドを使用して容易です。

Dim fName, mName, lName As Char 
    Dim names() As String = s.Split() 
    fName = names(0).Chars(0) 

    mName = names(1).Chars(0) 

    lName = names(2).Chars(0) 
    Console.WriteLine(fName & " " & mName & " " & lName)