Question

I am creating an array as follows

  Dim strFriends(0 to 6) As String

    strFriends(0) = "Bianca"
    strFriends(1) = "Jeana"
    strFriends(2) = "Sam"
    strFriends(3) = "Jenna"
    strFriends(4) = "Erin"
    strFriends(5) = "Carolyn"
    strFriends(6) = "Kate" 

    Dim myFriends As String

    myFriends = Join(strFriends, ", ")

    MsgBox myFriends

This will produce the following string: “Bianca, Jeana, Sam, Jenna, Erin, Carolyn, Kate”

But I need to retrieve specific items in array and display them as list, something like this:

e.g: If I want to select from strFriends, Kate ,Sam and Bianca

It should list like

Kate
Sam
Bianca

How to perform the task. I am really new to VB so I am confused with this simple task. Can anyone help.

Thank you

Answer 1

    Dim strFriends(0 To 6) As String

    strFriends(0) = "Bianca"
    strFriends(1) = "Jeana"
    strFriends(2) = "Sam"
    strFriends(3) = "Jenna"
    strFriends(4) = "Erin"
    strFriends(5) = "Carolyn"
    strFriends(6) = "Kate"

    Dim objOutput As Text.StringBuilder = New Text.StringBuilder()

    For Each strFriend As String In strFriends
        Select Case strFriend
            Case "Kate", "Sam", "Bianca"
                objOutput.AppendLine(strFriend)
        End Select
    Next

    MessageBox.Show(objOutput.ToString())

Or

    For Each strFriend As String In strFriends
        If MyLogicToDetermineSelected(strFriend) Then
            objOutput.AppendLine(strFriend)
        End If
    Next