Dim str As String Dim val() As Char = {"/", "\"} Dim ask() As String Dim askChar() As Char str = "AB/CD\EF/GH\IJ/KH\LM/NO\OP" '文字列を分割する askChar = str.ToCharArray ask = str.Split("/") ask = str.Split(val) ask = str.Split(val, 3) '文字列を結合する str = String.Join("\", ask) str = String.Join("\", ask, 2, 3) str = String.Join(String.Empty, ask)