how to sperate numbers, letters and special characters

[marj0990]

how to sperate numbers, letters and special characters

[Luuk]

What do you mean by 'separate'?

This code separates characters by inserting a '|', but I don't think you meant to do this:

Sub Main()
        Dim test = "abcdef0123456!@#$%^"

        For x = test.Length To 1 Step -1
            test = test.Replace(Mid(test, x, 1), Mid(test, x, 1) + "|")
        Next

        Console.WriteLine(test)
    End Sub

Warning: this code is not meant to be useful for any purpose...