Need helps with my poker hands evaluation code

[Moritsuki]

Here is what I have so far

 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

Hi here is what I have my code so far. My question is how to make the program reads the user input "InputDispl ay" and then display the corresponding string from the array SuitsValue and FaceValue to the listbox "OutputDisplay" . 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!