Strings.Replace("原字符串","寻找的字符串","取代的字符串") 

Strings.Replace(string.Empty,"@","").Length

所以在使用 Strings.Replace 方法要特别注意这点，防止发生异常的错误。而我的作法就是撰写另一个 StrReplace 方法来取代 Strings.Replace 方法，防止这类错误。

        /**/''' <summary>
        ''' 字符串取代。
        ''' </summary>
        ''' <param name="Expression">原始字符串。</param>
        ''' <param name="Find">搜寻的子字符串。</param>
        ''' <param name="Replacement">取代的子字符串。</param>
        Public Shared Function StrReplace()Function StrReplace(ByVal Expression As String, _
            ByVal Find As String, ByVal Replacement As String) As String
            If String.IsNullOrEmpty(Expression) Then
                Return String.Empty
            Else
                Return Replace(Expression, Find, Replacement)
            End If
        End Function