diff --git a/mRemoteV1/Themes/ThemeSerializer.vb b/mRemoteV1/Themes/ThemeSerializer.vb
index 118abcc56e..6f1cb742eb 100644
--- a/mRemoteV1/Themes/ThemeSerializer.vb
+++ b/mRemoteV1/Themes/ThemeSerializer.vb
@@ -103,10 +103,7 @@ Namespace Themes
             If color.IsNamedColor Then
                 Return color.Name
             Else
-                Dim argb As Integer = color.ToArgb()
-                Dim hexValue As String = Hex(argb)
-                Dim paddedHex As String = hexValue.PadLeft(8, "0")
-                Return paddedHex
+                Return Hex(color.ToArgb()).PadLeft(8, "0")
             End If
         End Function