Dim d As Integer = e.Value.length
d =d / 4
Select Case d
Case 0 To 1
e.Value = e.Value.Substring(1,d)
Case 1 To 2
e.Value = e.Value.Substring(1,4) & " " & e.Value.Substring(5,d-4)
Case 2 To 3
e.Value = e.Value.Substring(1,4) & " " & e.Value.Substring(5,4) & " " & e.Value.Substring(9,d-8)
Case 4 To 5
e.Value = e.Value.Substring(1,4) & " " & e.Value.Substring(5,4) & " " & e.Value.Substring(9,4) & " " & e.Value.Substring(13,4) & " " & e.Value.Substring(17,d-16)
Case 5 To 6
e.Value = e.Value.Substring(1,4) & " " & e.Value.Substring(5,4) & " " & e.Value.Substring(9,4) & " " & e.Value.Substring(13,4) & " " & e.Value.Substring(17,4) & " " & e.Value.Substring(21,d-20)
Case 6 To 7
e.Value = e.Value.Substring(1,4) & " " & e.Value.Substring(5,4) & " " & e.Value.Substring(9,4) & " " & e.Value.Substring(13,4) & " " & e.Value.Substring(17,4) & " " & e.Value.Substring(21,4) & " " & e.Value.Substring(25,d-24)
End Select