Lucky for you I just did something with that earlier...
If InStr(textbox1.Text, ",", CompareMethod.Binary) Then
Else
Dim x As Integer
Dim splitout = Split(textbox1.Text, " ")
textbox1.Text = splitout(UBound(splitout)) & ","
For x = 0 To UBound(splitout) - 1...