Dim Data() As String = TextBox1.Text.Split(" ")
MessageBox.Show(Data(0))
Private Sub ExperenceRank()
Dim data() As String
data = System.Text.RegularExpressions.Regex.Split(expAtt, "\s")
expAtt = data(0) : rAtt = data(1)
End Sub
Private Sub ExperienceRank()
Dim split As String() = expAtt.Split(new Char() { " "c })
expAtt = split(0)
rAtt = split(1) ' don't use ":", fuck me it's ugly.
End Sub