Option Strict On
Option Explicit On
Imports System.Console
Imports System.Math

Module Module1
    Sub Main()
        Dim namen(-1), eingabe, foo As String
        Dim wahl As Char
        Dim zaehler As Integer = 0
        Dim counter As Integer = 0
        Dim name(), vname, nname As String
        'weitere Variablendeklaration


        Do
            counter = 0
            zaehler = 0

            WriteLine("A) Namen einlesen")
            WriteLine("B) Vornamen ausgeben")
            WriteLine("C) Nachnamen ausgeben")
            WriteLine("X) Ende")
            wahl = UCase(CChar(ReadLine()))

            Select Case wahl
                Case "A"c
                    WriteLine("Geben Sie den Namen ein: ")
                    eingabe = ReadLine()

                    Do Until counter >= eingabe.Length Or zaehler > 1
                        If (eingabe.Chars(counter) = " ") Then
                            zaehler += 1
                        End If
                        counter += 1
                    Loop

                    Select Case zaehler
                        Case >= 2
                            Console.ForegroundColor = ConsoleColor.Red : WriteLine("Bitte benutzen Sie nur max. ein Leerzeichen!")
                            Console.ResetColor()
                        Case <= 1
                            ReDim Preserve namen(namen.Length)
                            namen(namen.Length - 1) = eingabe
                            Console.ForegroundColor = ConsoleColor.Green
                            WriteLine("Eingabe erfolgreich!")
                            Console.ResetColor()
                    End Select

                Case "B"c

                    If Not namen.Length <> 0 Then
                        Console.ForegroundColor = ConsoleColor.Red : WriteLine("Die Liste ist leer!")
                        Console.ResetColor()
                    Else
                        WriteLine("Vornamen: ")
                        For Each foo In namen

                        If foo.Contains(" ") Then
                            name = foo.Split(" "c)
                            vname = name(0)
                            WriteLine(vname)
                        End If

                    Next

                    End If

                Case "C"c

                    If Not namen.Length <> 0 Then
                        Console.ForegroundColor = ConsoleColor.Red : WriteLine("Die Liste ist leer!")
                        Console.ResetColor()
                    Else
                        WriteLine("Nachnamen: ")
                        For Each foo In namen

                            If foo.Contains(" ") Then
                                name = foo.Split(" "c)
                                nname = name(1)
                                WriteLine(nname)
                            Else
                                WriteLine(foo)
                            End If

                        Next

                    End If

            End Select

        Loop Until wahl = "X"

    End Sub

End Module