diff --git a/Modules.Language/Language.vbproj b/Modules.Language/Language.vbproj
index d7b8357b..f72ac163 100644
--- a/Modules.Language/Language.vbproj
+++ b/Modules.Language/Language.vbproj
@@ -77,6 +77,7 @@
     <Compile Include="DataTableEx.vb" />
     <Compile Include="DateTimeEx.vb" />
     <Compile Include="InvalidChars.vb" />
+    <Compile Include="StringEx.vb" />
     <Compile Include="Utils.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />
     <Compile Include="My Project\Application.Designer.vb">
diff --git a/Modules.Language/StringEx.vb b/Modules.Language/StringEx.vb
new file mode 100644
index 00000000..232fc76b
--- /dev/null
+++ b/Modules.Language/StringEx.vb
@@ -0,0 +1,9 @@
+Imports System.Runtime.CompilerServices
+
+Public Module StringEx
+    <Extension()>
+    Public Function Truncate(pString As String, pLength As Integer) As String
+        If String.IsNullOrEmpty(pString) Then Return pString
+        Return pString.Substring(0, Math.Min(pLength, pString.Length))
+    End Function
+End Module