Hi, I'm having a problem with a macro, trying to change it in this way:

Code:
 Sub Main()
      Dim strings As String()
      Dim i As Integer
      Dim quotes As Char = ChrW(34)

      strings = New String() {"started", "starting", _
         "ended", "ending"}

      Console.WriteLine(" test every string to see if it starts with 'st'")
      For i = 0 To strings.GetUpperBound(0)

         If strings(i).StartsWith("st") Then
            Console.WriteLine(quotes & strings(i) & quotes & _
               " starts with " & quotes & "st" & quotes )
         End If

      Next

      Console.WriteLine(" test every string to see if it ends with 'ed'")
      For i = 0 To strings.GetUpperBound(0)

         If strings(i).EndsWith("ed") Then
            Console.WriteLine( quotes & strings(i) & quotes & _
               " ends with " & quotes & "ed" & quotes )
         End If

      Next
   End Sub ' Main
I'm trying to use Case statements, but I've tried a lot and can't seem to get it to work using that... how would I use Select Case and Case?

Thanks!