Visual Basic

Here is what I have so far
[code] Public Class PokerHands

Sub InputFormat() 'Function to remove space and change characters to UPPER CASE
        InputDisplay.Text = InputDisplay.Text.Replace(" ", "").Replace(",","").ToUpper
    End Sub

    Sub FourOfaKind() 'Four of a Kind

    End Sub

    Sub ThreeOfaKind() 'Three of a Kind

    End Sub

    Sub Pair() 'A pair

    End Sub

    Sub Flush() 'A flush

    End Sub

    Sub Straight() ' A straight, if ace is low

    End Sub

    Sub AceStraight() 'An ace-high straight; 10, J, Q, K, A

    End Sub


    Private Sub InputDisplay_TextChanged(ByVal sender As Object, e As EventArgs) Handles InputDisplay.TextChanged



    End Sub

    Private Sub Button1_Click(ByValsender As Object, e As EventArgs) Handles Button1.Click
        Dim hands(4, 13) As Integer 'Example: If (2,11) = 1 then is JD
        Dim SuitsValue() As String = {"S", "D", "C", "H"}

        Dim FaceValue() As String = {"2", "3", "4", "5", "6", "7", "8", "9", "T", "J", "Q", "K", "A"}
    End Sub


End Class
[/code]

Hi here is what I have my code so far. I am simply stuck as how to make the program reads the user input and then display the correpsonding deck. For example: if the user input "aH, AS, 2D, 3C, 4C" the program will return ace of hearts, ace of spades, two of diamonds, three of clubs, and four of clubs? Also how can the program will recognize that the first letter (substring (0,1) is the FaceValue and the second letter substring(1,1) is the SuitsValue? I understand I will need a loop function to determine all five. I am sorry if I am asking stupid questions here but I am really stuck!!!

Thank you very much!

Dim item1 As New ListViewItem(sJC(idx).FINVNO.ToString)
item1.Checked = False
item1.SubItems.Add(sJC(idx).FCUSTNO)
item1.SubItems.Add(sJC(idx).FTRANSDATE)
item1.SubItems.Add(sJC(idx).FTRANSTIME)
item1.SubItems.Add(sJC(idx).FCOMPANY)
item1.SubItems.Add(sJC(idx).FCONTACT1)
item1.SubItems.Add(sJC(idx).FEMAIL1)
item1.SubItems.Add("")
item1.SubItems.Add("")
lv_journal_icons.Items.Add(item1)

Public Sub AddIconToSubitem( _
       ByVal row As Integer,
       ByVal col As Integer,
       ByVal icon_num As Integer)

       Dim lvi As New ListViewWithIcons.LV_ITEM()
       lvi.iItem = row         ' Row.
       lvi.iSubItem = col      ' Column.

       ' Indicate what we're setting.
       ' lvi.mask = ListViewWithIcons.LVIF_IMAGE Or
       ' ListViewWithIcons.LVIF_TEXT
       lvi.mask = ListViewWithIcons.LVIF_IMAGE

       ' Image index in the ImageList.
       lvi.iImage = icon_num

       ' Send the LVM_SETITEM message.
       ListViewWithIcons.SendMessage(Me.Handle, ListViewWithIcons.LVM_SETITEM, 0, lvi)


   End Sub

Public Structure LV_ITEM

        Public mask As UInt32
        Public iItem As Int32
        Public iSubItem As Int32
        Public state As UInt32
        Public stateMask As UInt32
        Public pszText As String
        Public cchTextMax As Int32
        Public iImage As Int32
        Public lParam As IntPtr

    End Structure

Dim EvalTopics As new List(of List(of customClass))
Dim sr As StreamReader = New StreamReader(BLAHBLAHBLAH)
        Dim OldSec As Integer = 0, NewSec As Integer = 0 'Old and New Section Numbers
        Dim seclist As New List(Of customClass) 'List to be added to EvalTopics
        While Not sr.EndOfStream
            Dim splits() As String = sr.Readline.Split(",")
            NewSec = splits(0) 'Section # is first value
                If OldSec <> NewSec Then
                    EvalTopics.Add(seclist)
                    seclist.Clear()
                    OldSec = NewSec
                End If
                Dim es As customClass = New customClass
                With es
                    'assign the other values to various properties
                End With
                seclist.Add(es)
        End While
        EvalTopics.Add(seclist)'Add the last section
        sr.Close()