Dim TurnP2 As String = IO.File.ReadAllLines(".\player2.txt")(Turn)
    Dim source As String = TurnP2
    Dim result() As String = Split(source, ",")