主题：格式化账号型字符

If e.Col.Name = "账号"
    Dim s2 As String
    For i As Integer = 0 To e.Text.Length -1
        s2 = s2 & e.Text.Chars(i)
        If (i + 1) Mod  4 = 0 Then
            s2 = s2 & " "
        End If
    Next
    e.Text = s2
End If

这样行吗？