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 "InputDisplay" 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!