Easiest way is to use
string.Split[
^] to break the string at the '/' and then print it from the array that returns:
Dim str As String = "C:/Ram/Ram1/Ram2"
Dim parts As String() = str.Split("/"C)
Dim sb As New StringBuilder()
Dim sep As String = ""
For Each s As String In parts
sb.AppendFormat("{0}{1}", sep, s)
sep = "/"
Console.Writeline(sb.ToString())
Next